Ю. Василеску 

Прикладное 
программирование 
на языке Ада 




Издательство„Мир“ 




— There are ; 

— for this cb 

— transactior 
READ < TRANS_FILE, L( 

next record 
.TR_LINE.TRANS^NEXT 


LUE_DATE.SHORT_DD 

эте other transact! о 
/ of the month, the 
becomes next to las 
: .OTHER ? WRK__LAST__TR 

V- 

I 

TRANS FILE )> + 1 ; 















Прикладное программирование на языке Ада 





Ada Programming with Applications 


Eugen N. Vasilescu 

Hofstra University 

Allyn and Bacon, Inc. 
Boston London Sydney Toronto 



Ю. Василеску 

Прикладное 
программирование 
на языке Ада 

Перевод с английского 
А. А. Титова 

под редакцией 

канд. техн. наук В. Н. Соболева 



Москва «Мир» 1990 



ББК 22.18 
В19 

УДК 519.682 


Василеску Ю. 

В19 Прикладное программирование на языке Ада: Пер. с англ.- 
М.: Мир, 1990.-348 с., ил. 

ISBN 5-03-001108-0 


В книге ученого из США излагаются методы и приемы прикладного программирования 
на языке Ада, которые могут быть использованы при создании системы управления парал¬ 
лельными процессами. Значительное внимание уделяется алгоритмизации управленческих 
задач, возникающих в хозяйственной практике. Изложение иллюстрируется множеством 

Для студентов, изучающих программирование и специалистов в области вычислитель¬ 
ной техники. 


2404010000-034 

В-134-90 г. 

041 (01)-90 


ББК 22.18 


Редакция литературы по информатике и робототехнике 


ISBN 5-03-001108-0 (русск.) 
ISBN 0-205-08744-2 (англ.) 


1987 by Allyn and Bacon, Inc. 

перевод на русский язык, А. А. Титов, 1990 



ПРЕДИСЛОВИЕ РЕДАКТОРА ПЕРЕВОДА 


Вниманию читателей предлагается книга по программированию на Аде-совре¬ 
менном многоцелевом языке, включающем множество полезных особенностей ряда 
языков-предшественников (от Фортрана и ПЛ/1 до Модулы-2 и Паскаля). Ада в 
значительной мере базируется на Паскале, однако намного сложнее и мощнее его. В 
разработке этого языка приняли участие лучшие специалисты разных стран. Язык Ада 
хорошо приспособлен для программирования как задач вычислительного характера, 
так и систем реального времени и параллельной обработки. Он удобен в качестве 
средств системного проектирования, что объясняется такими его особенностями, как 
наличие пакетов, разделение спецификаций и тел программных модулей, возможность 
параллельного выполнения нескольких задач, обеспечиваемая механизмом рандеву. 

В последнее время язык Ада получил распространение за рубежом как средство 
разработки сложных программных систем. Трансляторы с Ады имеются и на отечест¬ 
венных ЭВМ, однако широкое применение этого языка в нашей стране сдерживается 
рядом причин, в том числе отсутствием ориентированных на пользователя изданий, 
написанных на высоком методическом уровне и содержащих полное и точное изло¬ 
жение современной версии данного языка и методики его применения. 

В книге достаточно полно изложены методика и приемы прикладного програм¬ 
мирования на Аде. Она является хорошим подспорьем при самостоятельном изучении 
языка. Изложение опирается на большое количество тщательно подобранных при¬ 
меров, доведенных до законченных программ. К достоинствам книги относится также 
.умелое дозирование материала. Значительное внимание уделяется применению языка 
для алгоритмизации управленческих задач, возникающих в хозяйственной практике. 
Рассмотрены вопросы структурного проектирования, складывающегося из разработки 
больших программ, и структурного программирования, сводящегося к способам 
реализации программных модулей. Четко отражена концепция пакетов, являющаяся 
мощным инструментом создания прикладных программ и позволяющая выделять 
структуры данных, отделять интерфейс от практической реализации, изолировать 
объекты и связанные с ними операции. Описанный аппарат весьма удобен при 
разработке СУБД и создании прикладного обеспечения для управления парал¬ 
лельными процессами. 

Книга написана доступным языком, отличается ясностью и четкостью изложения. 
Охват материала весьма широк. Надеемся, что книга окажет существенную помощь 
системным аналитикам, прикладным программистам и специалистам по информаци¬ 
онным системам. Она может служить учебным пособием для аспирантов и студентов 
высших учебных заведений. 


В.Н. Соболев 
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Ада-язык программирования, разработанный по заказу министерства обороны 
США с целью противостояния нарастающему, кризису в области разработки програм¬ 
мных средств. Ада создавалась как язык, предназначенный для встроенных вычисли¬ 
тельных систем. В Аду включены: параллельная обработка, работа в реальном 
масштабе времени, обработка исключительных ситуаций и развитые средства ввода- 
вывода. Однако эти особенности языка делают его пригодным и для более широкой 
области применения. Понятие пакета оказалось весьма полезным инструментом при 
разработке программ. Оно позволяет вводить абстрактные структуры данных и 
отделять спецификацию сегмента программы (т.е. интерфейс) от его тела (т.е. от 
фактической реализации), а также дает возможность «скрывать» от пользователя 
объекты и связанные с ними операции. Наличие задач в языке Ада играет важную роль 
при разработке систем управления базами данных, а также в тех сферах приложения 
языка, где необходимо управление параллельными процессами. 

По мнению ряда ученых, Ада имеет хорошие шансы стать ведущим языком 
программирования 80-х гг. В связи с этим, было опубликовано несколько книг по Аде, 
ориентированных в первую очередь на специалистов по вычислительной технике. Это 
создало условия для перехода к Аде от таких языков программирования, как Фортран, 
ПЛ/1 и Паскаль. 

Данная книга, однако, в большей степени ориентирована на экономические 
приложения Ады и, в частности, на создание информационных систем, построенных на 
базе ЭВМ. Как часто отмечается, основной целью курса по информационным системам 
является подготовка выпускника высшего учебного заведения для работы в качестве 
начинающего системного аналитика, прикладного программиста или специалиста по 
информационным системам. Данная книга соответствует этой цели. Ею могут восполь¬ 
зоваться студенты-дипломники или студенты старших курсов, а также специалисты по 
информационным системам. Она может быть использована для чтения одно- или 
двухсеместрового курса. При этом предполагается, что читатель уже имеет по крайней 
мере начальные знания по ЭВМ и обладает некоторыми элементарными познаниями 
по одному из языков программирования типа Бейсик, Кобол, Паскаль, Фортран или 
ПЛ/1. 

Книга является самостоятельным учебным пособием. Она преследует следующие 
цели: 

-привить понимание языка программирования со строгой типизацией и разъяс¬ 
нить его преимущества для эффективной и надежной реализации пакетов; 

-дать практические знания и опыт в разработке пакетов для экономических задач; 
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-дать общее понимание таких сложных понятий, как локализация данных, парал¬ 
лельность и модульность. 

Читатели не перегружаются материалом. Синтаксис Ады вводится постепенно, 
при этом делается упор на представление целостных программ на Аде. 

К концу первой главы читатель получает сведения о типах и операторах, 
достаточные для написания простых программ. Гл. 2 и 3 знакомят с такими типами, 
как действительные, регулярные, комбинированные и ссылочные и с такими операто¬ 
рами, как цикл for. В гл. 4 вводятся другие операторы Ады (например, оператор выбора 
case) и такие понятия, как операции участия, комбинированные типы с вариантами. В 
гл. 5 и 6 излагаются сведения о подпрограммах и детально рассматриваются 
преобразования типов, инструкции транслятору, области действия идентификатора и 
правила видимости. Таким образом, в первых шести главах книги обсуждаются 
понятия, которые можно найти и в других языках. 

Во второй части книги (последние пять глав) рассматриваются концепции, введен¬ 
ные в Аду, благодаря которым этот язык может успешно применяться для програм¬ 
мирования встроенных вычислительных систем и для разработки сложных прог¬ 
раммных систем вообще. В этой части описываются: пакеты, развитые средства 
ввода-вывода Ады, раздельная компиляция, параллельная обработка, обработка 
исключительных ситуаций. 

Ада-сложный язык, а данная книга не рассчитана на использование в качестве 
справочника по этому языку. В ней не затрагиваются некоторые возможности Ады, 
наличие которых не очень существенно для большинства читателей. Например, в книге 
приведены сведения об использовании родовых средств, и в то же время опущены 
подробности правил написания родовых подпрограмм и пакетов. Хотя родовые 
средства важны и ценны при разработке программ для управления производством, они 
не столь необходимы в книге, ориентированной на пользователей Ады, занимающихся 
информационными системами. В книге не приведено описание средств Ады, зависящих 
от конкретной реализации языка. Знание особенностей конкретной версии Ады 
необходимо системному программисту, но далеко не столь важно для лиц, зани¬ 
мающихся прикладными экономическими задачами. Однако знание этих особен¬ 
ностей потребуется при использовании в программах на Аде внешних файлов, создан¬ 
ных с помощью иных языков программирования, а также при желании воспользо¬ 
ваться библиотеками программ, написанными на других языках. 

Содержание книги базируется на конспектах, подготовленных автором для чтения 
курса лекций по программированию на языке Ада для студентов старших курсов 
Университета Хофстра, специализирующихся по информационным системам в сфере 
экономики. Программы, приведенные в книге, подвергались трансляции и в значитель¬ 
ной степени свободны от синтаксических и семантических ошибок. Ранние версии 
программ транслировались компилятором JANUS/ADA, а более поздние-с помощью 
сертифицированных трансляторов Data General/ROLM и ѴАХ-11 компании Digital 
Eguipment Corporation. Для желающих предлагается дискетта, содержащая последние 
версии программ из данной книги и примеры протоколов трансляции и выполнения 
программ. Заявки на поставку этой дискетты следует адресовать непосредственно 
автору книги. 
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Глава 1 

Введение 


1.1. ЗНАКОМСТВО С ЯЗЫКОМ АДА 

1.1.1. Набор символов 

В программе на языке Ада используются буквы верхнего регистра, цифры и 
следующие специальные символы: 

= > — , I 

а также символ пробела. Все вместе они образуют основной набор символов языка Ада. 
Любая программа на Аде может быть написана с помощью только этих символов. 

В некоторых реализациях Ады применяется расширенный набор символов. В допол¬ 
нение к основному набору, в расширенном наборе используются буквы нижнего 
регистра и такие специальные символы: 

! $ % ? @ [ \ .] А '{ } ” 

Если сложить 52 (число букв обоих регистров), 10 (количество цифр) и 33 (общее число 
специальных символов), то получится в итоге 95. Эти 95 символов и составляют 
95-символьный набор графических знаков кода ASCII. 

В данной книге используется расширенный набор символов. В приложении В 
приведен полный список всех 128 символов кода ASCII, который включает в себя и 
95-символьный набор знаков языка Ада. 

1.1.2. Пример простой программы на Аде 

Читатель, обладающий даже элементарными знаниями по одному из языков 
программирования, без большого труда сможет понять приведенную ниже программу 
МАХЗ. Она считывает три целых числа и выводит на печать наибольшее среди них. 

Программа МАХЗ 

— Это комментарий. В Аде комментарии начинаются 

— с двух тире и продолжаются до конца строки. 

— Первые 3 строки это* программы - комментарии, 
with TEXT- 10; use TEXT -ІО; — Пакет TEXT_IO 

— делается доступным для программы МАХЗ. Теперь 

— можно использовать подпрограммы/ включенные в 

— состав этого пакета/ например N£W_l_INE/ GET/ 

— PUT. Подробные сведения о пакетах и подпрограм- 
—мах приведены в разд. 1.5. 

procedure МАХЗ is — Имя процедуры - МАХЗ/ 

— оно задается здесь. 

package INT-IO is new INTEGER- ІО <INTEGER); 
use INT_10) 

— Предыдущие две строки сделали возможным ис- 
— пользование подпрограмм ввода-вывода GET и 
— PUT для целых чисел. INTEGER- 10 является 
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— частью пакета ТЕХТ-ІО <см. разд. 1.5). 

I/ J, К/ L : INTEGER; 

— Четыре переменные I/ J/ К/ L об'явлены как 

— переменные целого типа. 

begin — Об'явления завершены; дальше рас- 

— полагаются операторы. 

GET < I); GET ( J ); GET( К ); 

— Используется подпрограмма GET из пакета 

— INT_IO. Три предыдущих оператора выполняют 

— считывание трех целых чисел/ которые будут 

— размещены в оперативной памяти ЭВМ по адре- 

— сам/ соответствующим переменным I/ J и К. 
if I > J 

then 
L := I; 
else 

L : = J; 
end if; 
if L < К 
then 
L := K; 
end if; 


NEW-LINE; 


PUT<“ The largest is = "); 

— На экране дисплея или на бумаге появляется 

— сообщение The largest is : 

PUT < L ); 

— Вслед за предыдущим текстом будет выведено 

— значение целого числа/ расположенного по ад- 

— ресу/ связанному с L. 

NEW-LINE; 

end МАХЗ; 

— Здесь процедура заканчивается. 


— Наибольшее значение среди I и J 

— помещается по адресу/ соответ- 

— ствующему L . 


— Целое число/ размещающееся в L/ 

— заменяется целым значением К 

— только в том случае/ когда L<K. 

— Теперь наибольшее целое значение 

— присвоено L . 

— Используется подпрограмма 

— NEW-LINE из пакета ТЕХТ-ІО. Она 

— применяется только для выходных 

— файлов и выполняет переход к но- 

— вой строке. 


Это целостная главная программа на Аде. Она состоит из процедуры МАХЗ и 
некоторой дополнительной информации о контексте, необходимой для трансляции и 
выполнения. Контекст описан строкой: 
with TEXTJO; use TEXTJO; 


которая открывает доступ данной программе к средствам текстового ввода-вывода. 
Эти средства необходимы для считывания (с терминала или иного устройства) и записи 
(на терминал, принтер и т. п.) символов из расширенного набора в таком виде, который 
может воспринимать человек. 

Сама процедура начинается строкой 
procedure МАХЗ is 

в которой задается имя процедуры и которая помечает начало тела процедуры. 
Процедура заканчивается строкой 
end МАХЗ; 

Каждая строка программы на языке Ада состоит из последовательности лексиче¬ 
ских единиц. Лексические единицы в главной программе МАХЗ-это идентификаторы. 
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разделители и строки (если не принимать во внимание комментариев). Эти термины 
будут более подробно освещены в разд. 1.2. Например, в программе МАХЗ иденти¬ 
фикаторами являются 

with МАХЗ I J else 
разделителями являются: 

, ; О 

а строка-это 

"The largest is : " 

В программах на Аде встречаются и два других вида лексических единиц : 
числовые литералы и символьные литералы. Числовые литералы представляют собой 
целые или действительные значения, например: 

12.0 8.5е1 144 

Символьным литералом может быть любой из 95 символов расширенного набора, 
заключенный в апострофы, например: 

'а' '5' 


Тело процедуры МАХЗ имеет две части. Первая из них- декларативная часть. Она 
расположена между идентификаторами is и begin. Вторая -исполняемая часть. Это 
последовательность_операторов, размещенная между идентификаторами begin и end. 

В декларативной части объявляются и делаются доступными все логические 
ресурсы, которые должны быть использованы в процедуре. Пусть, например, нужно 
открыть доступ к процедурам GET и PUT, которые выполняют ввод или вывод целых 
чисел в исполняемой части программы МАХЗ. Это осуществляется такими двумя 
строками в декларативной части процедуры МАХЗ: 
package INTJO is new INTEGERJO (INTEGER); 
use INTJO; 

С помощью этих строк из пакета INTEGERJO, являющегося частью пакета 
TEXTJO, создается нужный пакет INTJO. Более подробные сведения будут даны в 
разд. 1.5.1. Пакет INTJO обеспечивает доступ к нескольким версиям процедур GET и 
PUT, производящим чтение и запись целых чисел. Выбор конкретной версии этих 
процедур будет зависеть от формата данных и типа периферийного устройства. 
Строкой программы 
I, J, К, L : INTEGER; 

вводятся четыре логических объекта целого типа. Если потребуются дополнительные 
объекты, то перед идентификатором begin следует добавить соответствующие объяв¬ 
ления. 

После запуска программы МАХЗ ее исполняемая часть будет выполняться, 
начиная с трех обращений к процедуре GET. При этом три целых числа будут считаны 
и размещены в адресах памяти, соответствующих переменным I, J и К. Целые числа 
вводятся в свободном формате, т.е. их позиция в строке и пробелы, окружающие 
числа, во внимание не принимаются. Затем выполняются операторы if. Каждый 
оператор if (если) начинается с идентификатора if и заканчивается идентификаторами 
end if, за которыми следует разделитель Операторы if являются составными 
операторами, поскольку они могут содержать в своем составе и другие операторы. В 
приведенном примере они содержат операторы присваивания. Один из них имеет вид 
L := I; 

Его действие заключается в том, что значение переменной I размещается по адресу, 
соответствующему L. Как можно догадаться, операторы присваивания и обращения к 
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процедурам-это простые операторы, поскольку они не содержат других операторов. 
Остальные операторы программы МАХЗ являются обращениями к процедурам из 
пакетов TEXTJO и INTJO. 

Каждый оператор языка Ада заканчивается символом ";На одной строке может 
располагаться несколько операторов. Обычно операторы выполняются последова¬ 
тельно. Но такое выполнение может быть прервано некоторыми операторами (на¬ 
пример, return) или из-за возникновения ошибок, или особых событий. Ада реагирует 
на эти ошибки или особые события с помощью возбуждения исключительных ситуа¬ 
ций. Подробные сведения об исключительных ситуациях приводятся в гл. 11, а 
некоторые вводные пояснения даются в разд. 1.5.3. 

1.1.3. Циклы while в языке Ада 

Далее приводится пример еще одной законченной программы на Аде с именем 
MAXALL. В ней используется цикл while (до_тех_пор_пока). Операторы программы 
размещены более плотно, чем в предыдущем примере. Программа печатает наиболь¬ 
шее из вводимых целых чисел. Признаком конца входного потока положительных 
целых чисел считается число — 1. 

Программа MAXALL 

with TEXT-10; use TEXT-IO; 

procedure MAXALL is 

package INT-IO is new INTEGER-10(INTEGER); 

use INT-IO; 

I I MAX-NO , INTEGER; 

begin 

MAX-NO : = 0; GET(I); 

while I /= -1 loop 

if T > MAX-NO then MAX-NO .-I; end if; 

GET(I); 

end loop; 

PUT( и The largest is s “); PUTCMAX-NO); 

NEW-LINE; 

end MAXALL; 

В программе MAXALL операторы, расположенные между идентификатором loop 
(цикл) и идентификаторами end loop (конец цикла), выполняются до тех пор, пока 
выражение, стоящее после идентификатора while, истинно. В данном случае это 
происходит до тех пор, пока I не станет равным — 1. Последовательность символов /= 
(косая черта и знак равенства) означает «не равно». Это-составной разделитель. Здесь 
опять-таки целые числа вводятся в свободном формате, возможно, по нескольку чисел 
в строке. 

Читатель может выразить недоумение по поводу того, что для записи и считы¬ 
вания столь простых объектов, какими являются целые числа, потребовался такой 
тщательно разработанный процесс. Но пока лучше не спешить с выводами и подож¬ 
дать до тех пор, пока станет возможным более детальное обсуждение концепции 
пакетов. До этого момента рекомендуется изучать примеры, приведенные автором, не 
задавая себе вопросы о необходимости использования пакетов. Если имена файлов 
не указаны явно, то в большинстве диалоговых систем подразумевается, что 
входные данные поступают в систему с клавиатуры, а выходные данные посы¬ 
лаются на терминал. При работе в диалоговой системе для ввода программы следует 
пользоваться редактором текстов. Для запуска программы нужно применять име¬ 
ющиеся в вашей системе команды, выполняющие вызов транслятора с Ады и 
редактора связей. 
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1.2. ДАЛЬНЕЙШИЕ СВЕДЕНИЯ О ЛЕКСИЧЕСКИХ 
ЕДИНИЦАХ 

Любую программу, написанную на языке Ада, можно рассматривать как последо¬ 
вательность лексических единиц. Несколько лексических единиц могут располагаться в 
одной строке, но в то же время лексическая единица не должна занимать более чем 
одну строку. Как уже отмечалось, лексические единицы-это идентификаторы, число¬ 
вые и символьные литералы, строки, разделители и комментарии. Идентификаторы и 
числовые литералы должны отделяться от других идентификаторов или числовых 
литералов по крайней мере одним пробелом или должны располагаться на разных 
строках. 

Идентификаторы в Аде-это последовательности букв, цифр и символов подчер¬ 
кивания. При этом первым символом последовательности должна быть буква, а по 
бокам каждого символа подчеркивания должны стоять буквы или цифры. Буквы 
верхнего и нижнего регистров, входящие в состав идентификаторов, не различаются. 
Поэтому два идентификатора будут считаться одинаковыми, если они отличаются друг 
от друга только видом регистра для входящих в них букв, а в остальном последова¬ 
тельности их символов совпадают. 

Пример. Ниже приведены правильные идентификаторы языка Ада: 

I Q12_pqR GeneraLLedger ACCOUNT 123 
ZZZZ Check_CREDIT_APPROVAL INTEREST 

A.bot примеры неправильных идентификаторов: 

1 Expect Последовательность символов начинается с цифры 

MORENO_ Символ подчеркивания не окружен буквами или 

цифрами 

ТОО MANY То же 

Некоторые из идентификаторов являются зарезервированными словами, имеющими 
особое значение в языке Ада. Их нельзя использовать в качестве имен иных ресурсов. В 
Аде насчитывается 62 зарезервированных слова. Их список приведен в табл. 1.1. 


Таблица 1.1. Зарезервированные слова Ады 


abort 

accept 

access 

all 

and 

array 

at 


begin 

body 


case 


declare generic 

delay goto 

delta 


digits 

do 


else 

elsif 

end 


entry 

exception 


is 

limited 

loop 

mod 


of 

or 

others 

out 

package 

pragma 

private 

procedure 

raise 

range 

record 

rem 



select 

separate 

subtype 

task 

terminate 

then 

type 


when 

while 

with 


constant 


for 

function 


new 

not 

null 


return 

reverse 


xor 
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Как указывалось выше, числовые литералы представляют собой целые и действи¬ 
тельные числа. Для улучшения читабельности литералов среди цифр можно поместить 
и символы подчеркивания. Действительный литерал содержит десятичную точку, а в 
целом литерале она отсутствует, Целые литералы могут содержать мантиссу с 
положительным показателем степени. Примеры числовых литералов: 

Целые литералы 0 5 13 21е + 3 21_345 34 21е + 2 

Действительные литералы 1.3 2.0е-12 1„2J_45.08E; +7 1_123.456 

Числовые литералы можно записывать в любой системе счисления с основанием 
от 2 до 16. Если основание не равно 10, то перед числовым литералом ставится 
основание системы счисления (в десятичном виде) и символ "#". Например, 2# 1110 
представляет десятичное целое число 14, записанное в двоичной системе счисления. 
Если при этом имеется показатель степени, то он записывается в десятичной системе. 
Например, десятичное число 56 можно записать в двоичном виде как 2# 111е + 3. Если 
основание системы счисления превышает 10, то применяются латинские буквы от А до 
F, соответствующие цифрам от 10 до 15. 

Как уже упоминалось, символьный литерал-это любой из 95 символов графиче¬ 
ского набора кода ASCII, заключенный в апострофы. Например, символьными 
литералами являются 

'а' 'А' '2' 7 '5' 

Не следует путать символьные литералы со строками. Строки получаются, если 
несколько символов (ноль и более) заключить в кавычки. Пример строк: 

"a" "Just a regular string" "1.234;" "2.1 cents" 

Пустая строка (в ней нет символов) представляется в виде Если необходимо 
поместить в саму строку символ ", то его следует дублировать, т.е. записывать в 
виде " ". Длинные строки, занимающие более одной строки текста программы, можно 
представить в виде совокупности более мелких строк, при этом используется символ 
сцепления, обозначаемый &. Например: 

"if you need a really long string like a heading " & 

"you can use the symbol to catenate-i.e.," & 

"glue together-the pieces from several lines" 

Обратите внимание на то, что здесь внутри строки использованы кавычки повторяю¬ 
щиеся два раза, т.е. применена конструкция При этом будет напечатано 

В используемой вами версии языка Ада может оказаться возможным применение 
знаков, не входящих в основной набор символов. В таком случае любой символ, не 
входящий в этот набор, будет преобразован в эквивалентное представление, соответст¬ 
вующее основному набору, с помощью идентификаторов пакета, названного ASCII 
(см. приложение В). Применение пакетов будет описано в гл. 7. 

Как упоминалось выше, начало комментария отмечается двумя тире. Коммента¬ 
рий заканчивается концом соответствующей строки текста программы. Перед коммен¬ 
тарием могут располагаться операторы языка Ада, однако вслед за ним на той же 
строке операторов уже быть не может. 

1.3. СВЕДЕНИЯ О ТИПАХ И ОБЪЕКТАХ 

1.3.1. Целые и перечисляемые типы и связанные с ними объекты 

За небольшими исключениями каждый идентификатор (если он не является 
ключевым словом Ады) должен быть описан в явном виде, и его свойства должны быть 
известны перед тем, как он может быть использован в исполняемой части программы. 
В основном идентификаторы описываются с помощью объявлений, появляющихся в 





Введение 


декларативной части программы. Грубо говоря, в этом случае объявление дает сведения 
о том, каким видом ресурса является описываемый идентификатор. Например, в 
предыдущих двух программах были объявлены переменные I, J и К. Эти описания 
были необходимы для того, чтобы оперировать с целыми числами при помощи 
приведенных идентификаторов. Другим видом ресурсов, который может быть обозна¬ 
чен идентификатором, является тип. Типы играют главенствующую роль в Аде. Они 
представляют собой некоторые шаблоны или модели данных. 

Общая форма объявления типа такова: 
type имя_типа js определение_липа; 

(Подчеркнуты зарезервированные слова языка Ада.) Имя_типа-это идентификатор, 
выбранный программистом. 

Типы используются для определения совокупностей значений и операций, разре¬ 
шенных для них. В этом подразделе рассматриваются два важных вида типов-целые 
типы и перечисляемые типы, называемые дискретными типами. 

Для целых типов член определение_типа в объявлении типа-это уточнение 
диапазона значений, состоящее из зарезервированного слова range, после которого 
следуют нижняя граница диапазона, две точки и затем верхняя граница. Нижняя 
граница не может быть больше верхней. Вот некоторые примеры объявлений целых 
типов: 

type AGE is range О .. 200 ; 
type DAY_0F_M0NTH is range 1 .. 31 ; 
type ACCOUNT—NQ is range 0 .. 9999 ; 
type TEMPERATURE is range -140 .. 2100 > 
type FEVER is range 95 .. 1Ѳ9 ; 

Для целых типов множество допустимых значений задается в уточнении диапазона 
значений. Например, значения величин целого типа AGE могут находиться в пределах 
от 0 до 200 включительно. Обычно для целых типов определены следующие операции: 
присваивание, сравнение, сложение ( + ), вычитание (—), умножение (*), деление (/) и 
возведение в степень (**). Пять последних операций называются арифметическими. 

Для перечисляемых типов член «определение_типа» в объявлении состоит из 
заключенной в скобки последовательности перечисляемых литералов, разделенных 
запятыми. Перечисляемыми литералами могут быть либо идентификаторы, либо 
символьные литералы. В следующих примерах представлены объявления перечисляе¬ 
мых типов: 

type DAY is (MON,TUE,WED,THU,FRI,SAT,SUN) } 
type ACCOUNT is (MARGIN,HEDGE) ; 
type SECURITY is (DISCOUNT,COUPON) ; 
type SWITCH is (ON,OFF) ; 

Наборы возможных значений для перечисляемых типов задаются в явном виде с 
помощью списка этих значений в объявлении типа. Например, для величин, принад¬ 
лежащих к перечисляемому типу SECURITY, допустимы два значения-перечисляемый 
литерал DISCOUNT и перечисляемый литерал COUPON. 

Среди операций, определенных для перечисляемых типов, следует упомянуть 
операцию "<" (меньше). Значение одной величины перечисляемого типа будет счи¬ 
таться меньшим, чем значение другой величины того же типа, если в списке перечис¬ 
ляемых литералов для этого типа первое значение появляется раньше, чем второе. 
Операция ">" определяется сходным образом. 

В языке Ада имеется небольшое количество предопределенных типов. Предопре¬ 
деленные типы не требуется объявлять в декларативной части подпрограммы. Вот 
некоторые из них: целый тип INTEGER (целый), перечисляемый тип CHARACTER 





(символьный), перечисляемый тип BOOLEAN (логический) и тип STRING (строковый). 
(Тип STRING принадлежит к разряду типов, описываемых в гл. 2.) Далее дается 
краткое описание значений и операций для этих предопределенных типов. 

Диапазон значений, которые могут принимать величины типа INTEGER, зависит 
от реализации. Поэтому каждый разработчик транслятора с языка Ада самостоятельно 
принимает решение о том, каким должен быть этот диапазон. Как правило, это по 
меньшей мере 64К (быть может, от — 32К до +32К — 1). Операции, разрешенные для 
этого предопределенного типа, такие же, как и для любого другого целого типа. 

Величины типа CHARACTER имеют в качестве значений символы из набора 
ASCII. Операции, допустимые для этого типа, включают присваивание и сравнение. 
Эти же операции допустимы и для любого перечисляемого типа. 

Величины типа BOOLEAN могут принимать значения FALSE и TRUE. 

Значениями величины типа STRING могут быть последовательности символов, 
заключенные в кавычки. К величинам этого типа применимы операции сравнения с 
другими строками, а также операции присваивания и сцепления (как с другими 
строками, так и с отдельными символами). 

После того как тип объявлен, можно объявлять величины этого типа, называемые 
объектами. В языке Ада имеются два вида объектов - константы и переменные. После 
объявления переменной некоторого типа, она может иметь любое значение, допустимое 
для этого типа. Значение переменной можно изменить, например, путем присваивания 
ей нового значения. Значения констант некоторого типа задаются при их объявлении. 
Они не могут изменяться впоследствии. Например, в программе МАХЗ переменные I, 
J, К и L объявлены как переменные предопределенного типа INTEGER. В программе 
эти переменные сравниваются и используются в операторах присваивания. Как 
говорилось выше, эти операции разрешены для переменных типа INTEGER. 

Приведем примеры объявлений переменных: 

AGE— ЕМРІ _1 : AGE ; 

MORE-AGE/ EVEN-MORE-ACE : AGE / 

TRANS-DAY = DAY-OF-MONTH > 

SETTLEMENT-DATE/ NOTICE-DAY : DAY_OF_MONTH ; 

EMPL-ACC, EMPL-ACC-TEMP : ACCOUNT_NO / 

PATIENT-l-TEMP : FEVER ; 

BOILING-TEMP : TEMPERATURE ; 

DAY-1/ DAY_2 : DAY ; 

Отметим еще раз, что объявления типов следует располагать раньше, чем объявления 
объектов, принадлежащих к этим типам. Предопределенные типы объявлять не надо. 

Примеры объявления констант: 

MINIMUM-AGE : constant AGE := 18 ; 

DRINKING_AGE : constant AGE = = 21 > 

MONTHLY-STATEMENTS-DAY = constant DAY-NO := 1 / 

NORMAL-TEMP .- constant FEVER : = 98 ; 

PAY-DAY : constant DAY == FRI ; 

Объявления объектов (переменных и констант) в этих примерах составлены по 
определенному шаблону. Для переменных вид этого шаблона таков: 

список идентификаторов : имя типа; 

Для констант форма объявления такая: 

список_идентификаторов : constant имя.типа : = числовой_литерал; 
Списоклдентификаторов - это последовательность идентификаторов, разделенных за¬ 
пятыми. Он представляет имена объектов. Имя_типа-это предопределенный тип или 
же тип, введенный программистом. Другие формы объявлений, в состав которых 
входят различные виды уточнений, будут рассмотрены в следующей главе. 
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У читателей может возникнуть вполне естественный вопрос: в чем же польза от 
таких концепций, как типы или уточнения диапазонов значений? Среди многих 
преимуществ, которые предоставляют данные средства, есть и то, что определение 
типов вводит некоторые ограничения на пределы возможных значений величин и на 
действия с этими величинами. Эти ограничения встраиваются в объектный код 
программы компилятором с языка Ада и автоматически проверяется их соблюдение. 
Тем самым предотвращаются операции с неверными данными. 

1.3.2. Использование символьных и строковых типов 

Далее показано, каким образом можно переделать программу МАХЗ для того, 
чтобы она выбирала из трех символов тот, номер позиции которого в последова¬ 
тельности символов кода ASCII является наибольшим 

Программа CHARJV1AX3 
with ТЕХТ-ІО; use ТЕХТ-ІО; 

— Пакет ТЕХТ-ІО делается доступным для программы 

— CHAR -МАХЗ. Теперь можно использовать подпро- 

— граммы из CHAR_MAX3, например NEW-LINE/ GET/ 

— PUT и т.д. 
procedure CHAR -МАХЗ is 

I/ J, К, L: CHARACTER/ 

— Переменные 1, J, К и L об'явлены как пере- 

— менные символьного типа, 
begin 

— Об'явления закончены/ далее располагаются 

— операторы. 

GET (I); GET < U ); GET < К ); 

— Используется подпрограмма GET из пакета 
— ТЕХТ-ІО . Считываются три символа,и их зна- 

— чения присваиваются переменным I, J и К. 
if I > J 

then 

L := I; — Переменной L присваивается 
else — значение/ наибольшее среди 

L : = J; — I и J . 
end if; 
if L < К 

then — Значение L становится равным 

L := К; — значению К только в том слу- 
end if; — чае/ если 1_<К в соответствии с 

— последовательностью ASCII. 

— Теперь наибольшее символьное значение при- 

— своено L . 

NEW-LINE ; 

— Используется подпрограмма NEW-LINE из 

— пакета ТЕХТ-ІО . 

PUT (“ The largest is : "); 

— Напечатать или отобразить на дисплее со- 

— обцение: The largest is : 

PUT(L); 

— А затем напечатать символьное значение/ 

— которое присвоено L . 

NEW-LINE; 

end CHAR— МАХЗ; 

— Конец процедуры. 





В отличие от аналогичной программы для целых чисел здесь нет необходимости в 
использовании дополнительной части пакета ТЕХТ_ІО для чтения (QET) или записи 
(PUT) символов. Символы считываются последовательно. После выполнения каждой 
операции GET номер позиции во входном файле увеличивается на единицу. Поэтому 
между тремя вводимыми символами не следует помещать пробелы. Так, для опреде¬ 
ления символа с наибольшим номером по таблице ASCII среди "Z", "А” и "Р" следует 
ввести ZAP. 

Смысл оператора присваивания 

L : = К; 

одинаков как для целых, так и для символьных типов. Текущее значение переменной, 
находящейся слева от составного символа : =, заменяется на значение, полученное в 
результате вычисления выражения (в данном случае-это переменная), расположенного 
справа. Литералы (числовые и символьные) и переменные-это простые виды выра¬ 
жений, называемые простейшими выражениями. Они могут служить основой для 
построения более сложных выражений. Ада-весьма строгий язык, в котором, как 
правило, не допускается использовать величины разных типов в одном выражении или 
в одном операторе присваивания. 

Пример. Пусть имеются объявления 
М, N : INTEGER; 

X, Y : CHARACTER; 

Тогда можно написать следующие операторы присваивания: 

М := М + N; 

М := N*3; 

X : = 'с'; 

X := Y; 

Но приведенные ниже операторы присваивания неверны, поскольку в них входят 
величины разных типов: 

М : = М + X; 

N := 'А'; 

X ; = 5; 

Предопределенный тип STRING будет подробно рассмотрен в следующей главе, 
которая посвящена изучению регулярных типов. В данной главе, однако, нам потре¬ 
буется объявить переменные типа STRING и использовать их в процедурах GET и PUT 
из пакета ТЕХТ_ІО. Например: 

F_NAME : STRING (1 ..25); 

это переменная типа STRING, вмещающая 25 символов. Первый символ находится в 
1-й позиции строки, а последний-в 25-й. Длина строки равна 25. Другой пример 
переменной типа STRING: 

STREET_ADDRESS : STRING (1 ..20); 

При выполнении процедур GET или PUT с аргументами типа STRING символы 
строки считываются или записываются, начиная с первой доступной позиции файла. 
Количество введенных или выведенных символов равно длине строки, являющейся 
параметром используемой процедуры. Например, оператор 
GET (F_NAME); 

введет следующие 25 символов. Если последняя введенная колонка была, скажем, 13-я, то 
будут прочитаны символы, начиная с позиций 14-й до 38-й включительно. Аналогично 
оператор 

PUT (STREET_ADDRESS); 
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выполнит запись 20 символов переменной STREET_ADDRESS, начиная с первой 
доступной позиции. 

Другая разновидность процедуры GET или PUT позволяет указывать число цифр 
вводимого или выводимого числа. Если имеется объявление 
I : INTEGER; 
то оператор 
GET (I, 5); 

выполняет ввод целого числа из следующих 5 позиций. Если последняя колонка была 
8-й, то целое число будет введено с позиций от 9-й по 13-ю включительно. 

Приведенная ниже программа, названная HEAVY, иллюстрирует эти положения. 
Каждая входная запись содержит в первых 20 позициях фамилию человека, а в 
следующих 5 позициях-его вес в фунтах. Последняя запись файла содержит букву X в 
первой позиции, а в остальных-пробелы. Программа выводит фамилию человека, вес 
которого наибольший. 


Программа HEAVY 

with TEXT-IO; use TEXT-IO; 
procedure HEAVY is 

package INT_IO is new INTEGER -ІО (INTEGER); 
use INT-IO; 

WEIGHT, MAX-WEIGHT : INTEGER; 

H-NAME, MAX-H-NAME : STRING (1 .. 20); 
begin 

MAX-WEIGHT := 0; GET(H-NAME); 

— Считываются первые двадцать символов стро- 

— ки. Если отсутствует обращение к подпро- 

— грамме SKIP-LINE, то при следующем вызове 

— подпрограммы GET чтение начнется с 21-й 

— позиции, 
while H-NAME /= "X 

— Строки вводятся и обрабатываются до тех 

— пор, пока не встретится строка, в начале 

— которой располагаются X и 19 пробелов. 

loop 

GET(WEIGHT , 5); 

— Из следующих пяти позиций строки, т.е 

— из позиций 21-25, считывается целое 

— число, которое присваивается переменной 
— WEIGHT. 

if WEIGHT > MAX-WEIGHT 
then 

MAX-WEIGHT WEIGHT; 

MAX-H-NAME >« H-NAME; 

— Этот оператор присваивания применим 
— только для строк одинаковой длины, 
end if; 

SKIP-LINE; 

— Эта подпрограмма из пакета ТЕХТ-ІО ра- 

— ботает только со входными файлами. Она 

— выполняет переход к началу следующей 

— строки. 

GET (Н_ NAME ); 

end loop; 

NEW-LINE; 
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PUT(" The heaviest person is : "); 

PUT(MAX-H-NAME); 

NEW-LINE; 
end HEAVY; 

Если строки, поступающие на вход программы, будут иметь вид 
JOHNSON К. Магу 00145 

J.K. Peterson 00175 

Paul Amaretto 00155 

X 

то программа выведет такой результат 
J. К. Peterson 

1.3.3. Атрибуты целых и перечисляемых типов 

Типы и объекты в языке Ада могут иметь некоторые предопределенные характери¬ 
стики, называемые атрибутами. Например, целые и перечисляемые типы имеют 
одинаковый набор атрибутов. Среди этих атрибутов -FIRST и LAST. Эти атрибуты 
дают соответственно минимальное и максимальное значения, возможные для величин 
заданного типа. Ниже приводятся примеры атрибутов: 

Атрибут Описание 

INTEGER'FIRST Дает наименьшее целое значение, обеспечиваемое предоп¬ 

ределенным типом INTEGER 

INTEGER'LAST Дает наибольшее целое значение, обеспечиваемое предоп¬ 

ределенным типом INTEGER 

AGE'FIRST Дает наименьшее значение, допустимое для типа AGE 

(см. примеры на с. 15-16); здесь оно равно О 
AGE'LAST Дает 200 (см. с. 15) 

ACCOUNTJMO'FIRST Дает 0 (см. с. 15) 

ACCOUNT_NO'LAST Дает 9999 (см. с. 15) 

DAY'FIRST Дает MON (см. с. 15) 

DAY'LAST Дает SUN (см. с. 15) 

Как показывают примеры, для получения значений атрибутов FIRST и LAST 
необходимо за именем типа поставить апостроф и имя атрибута. 

Для дискретных типов имеются еще 4 атрибута: POS, SUCC, PRED и VAL. При 
запросе этих атрибутов нужно, помимо имени типа и названия атрибута, указать в 
скобках некоторое значение (или выражение, результатом которого является некоторое 
значение). 

Атрибут POS дает номер позиции, которую занимает значение указанной величи¬ 
ны по отношению к минимально возможному для данного типа значению. Вот 
некоторые примеры: 

Атрибут POS Значение 

AGE'POS (2) 2 

DAY'POS (TUE) 1 

SWITCH'POS (ON) 0 

Атрибут SUCC дает следующее по порядку значение для величины заданного типа: 
Атрибут SUCC Значение 

INTEGER'SUCC (7) 8 

CHARACTER'SUCC(T) g 

AGE'SUCC(2) 3 

DAY'SUCC (TUE) WED 

SWITCH'SUCC(ON) OFF 
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AGE'SUCC (200) 
DA Y'SUCC (SUN) 


Возникнет исключительная ситуация, свидетельствую¬ 
щая об ошибке 
То же 


Атрибут PRED дает предшествующее значение для величины заданного типа. 


Атрибут PRED 

INTEGER'PRED(8) 
CHARACTER PRED('g') 
AGE'PRED (3) 
DAY'PRED (TUE) 
SWITCH'PRED (OFF) 
AGE'PRED (0) 

DAY'PRED (MON) 


Значение 

7 

'f 

2 

MON 

ON 

Возникнет исключительная ситуация, свиде¬ 
тельствующая об ошибке 
То же 


Атрибут VAL возвращает значение, позиция которого (в множестве допустимых 
для данного типа значений) задается положительным числом. 

Атрибут VAL Значение 


CHARACTER VAL (71) 
AGE'VAL(3) 
DAY'VAL(2) 
SWITCH'VAL(l) - 
DAY'VAL(8) 


Возникнет исключительная ситуация, 
тельствующая об ошибке 




В следующем подразделе приведена программа UP_MONDAY, которая дает 
примеры практического применения атрибутов для дискретных типов. 


1.3.4. Использование целых и перечисляемых типов 

Следующая программа, названная UP_MONDAY, связана с поговоркой, бытую¬ 
щей на Уолл-стрите: Up on Monday, down on Tuesday (подъем в понедельник, спад во 
вторник). Здесь имеется в виду то, что, если деловая активность испытывает подъем в 
понедельник, она, по всей вероятности, будет подвергаться спаду во вторник. Про¬ 
грамма считывает информацию из каждой входной строки. В строке размещаются два 
слова. Первое слово - английское название дня недели (от понедельника (Monday) до 
пятницы (Friday)), а второе слово характеризует изменение деловой активности по 
сравнению с предшествующим днем (up -рост, down -спад, unchanged - без изменений). 
На вход программы подается заранее неизвестное количество строк. Условимся, что 
признаком конца данных будет указание в качестве дня недели воскресенья (Sunday). 
Программа должна проверять, чтобы перед данными о вторнике на вход подавались 
данные о понедельнике. Дело в том, что праздники, как и дни выборов 1; , иногда 
бывают в понедельник, а иногда-во вторник, и надо проверять, чтобы эта последо¬ 
вательность не нарушалась. Никаких других проверок не делается, хотя в реальных 
программах они наверняка бы потребовались. Предполагается, что на вход программы 
поступают по меньшей мере две записи. 

Программа UPJVIONDAY 
with TEXT-IO; use TEXT-IO; 
procedure UP-MONDAY is 

type DAY is (MON,TUE,WED/THU,FRI,SAT,SUN); 


В такие дни, по всей вероятности, деловая жизнь в США замирает. Ярил*, перев. 
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type CHANGE is <DOWN,UNCHANGED,UP); 

— 06 'явление двух перечисляемых типов. 

— Первый тип имеет значения от M0N до SUN/ а 

— второй - DOWN/ UNCHANGED и UP. 
package DAY-I О is new ENUMERATION-I0(DAY); 
use DAY-IO; 

— Эти две строки нужны для обеспечения ввода 

— и вывода величин типа DAY. Теперь можно 

— пользоваться свободной формой обращения 

— к GET и PUT для типа DAY. Величины типа 
— DAY могут вводиться с помощь» букв как 

— верхнего/ так и нижнего регистра/ и это не 

— повлияет на результат. Все это справедливо 

— для любого перечисляемого типа. 

package CHANGE- 10 is new ENUMERATION-10(CHANGE); 
use CHANGE-10; 

— Как только что пояснялось/ эти две строки 

— необходимы для обеспечения ввода-вывода 

— (I/O) для величин типа CHANGE. 

CURRENT-DAY, PREVIOUS-DAY : DAY/ 

— Об'явлены две переменные типа DAY. 
CURRENT-CHANGE, PREVIOUS-CHANGE : CHANGE, 

— Об'явлены две переменные типа CHANGE, 
package INT-IO is new INTEGER_I0(INTEGER); 
use INT-IO; 

TOTAL-UP-MONDAY, TOTAl_UP_MON_AND_DOWN_TUE : 

INTEGER; 

— Об'явлены две переменные предопределенного 

— типа INTEGER, 
begin 

ТОТ Al _ UP-MONDAY := О; 

TOTAI_UP_MON_AND_DOWN_TUE := 0; 

GET(PREVIOUS-DAY); 

GET(PREVIOUS-CHANGE); 

— Первая строка только что была считана, а 

— значения типов DAY и CHANGE присвоены пере- 

— менным, идентификаторы которых начинаются 

— со слова PREVIOUS (предыдущий). 

SKIP-LINE; 

GET(CURRENT-DAY) ; 
while CURRENT-DAY /= SUN 
loop 

GET(CURRENT-CHANGE); 
if PREVIOUS-DAY = MON and 
PREVIOUS-CHANGE = UP 

— С использованием атрибутов эти условия 
— можно было бы записать так: 

PREVIOUS-DAY * DAY'FIRST and 
PREVIOUS-CHANGE = CHANGE'FIRST 
then 

TOT Al_UP-MONDAY .= TOTAI_UP-MONDAY+l; 

if CURRENT-DAY = TUE and 
CURRENT-CHANGE - DOWN 
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— Эквивалентное условие с использова- 
— нием атрибутов имеет вид 
— CURRENT-DAY 

— DAY'SUCClPREVIOUS-DAY) and 

— CURRENT-CHANGE 
— CHANGE'SUCC<PREVIOUS-CHANGE) 

— Еце один пример записи этого усло- 

-ВИЯ: 

-- DAY'PREV<CURRENT-DAY) 

— PREVIOUS-DAY and 

— CHANGE'PREV<CURRENT-CHANGE) = 

— PREVIOUS-CHANGE 
then 

TOTAl_UP_MON_AND_DOWN_TUE : = 

TOT Al_UP_MON_AND_DOWN_TUE + 1; 

end if; 
end if; 

PREVIOUS-DAY == CURRENT-DAY ; 

PREVIOUS-CHANGE .» CURRENT-CHANGE/ 

SKIP-LINE/ 

GET(CURRENT-DAY)/ 

end loop; 

NEW-LINE; 

PUT(" The total of up days on Mondays is : "); 

PUT(TOTAL-UP-MONDAY); 

NEW-LINE; 

PUT<" The total of up on Mondays and down “); 

PUT("on Tuesdays is : “); 

PUT < T0TA1_UP_MON_AND_DOWN—TUE); 

end UP-MONDAY; 

Обратите внимание на то, что если при выполнении оператора GET не встретится 
значение требуемого типа, то будет возбуждена исключительная ситуация, свидетельст¬ 
вующая об ошибке. 

В программе UP_MONDAY для построения сложного выражения из двух простых 
используется логическая операция and (И). Это фактически-логическое (BOOLEAN) 
выражение, поскольку тип результата этого выражения-логический. Смысл этого 
выражения совершенно ясен. В разд. 1.4 будут представлены дополнительные сведения 
о логических выражениях. 

В нижеследующей программе иллюстрируется применение целых и перечисляемых 
типов. Это-учетная программа. Она считывает информацию о товарах, названия 
которых хранятся в ведомости. В каждой входной строке даются сведения только об 
одной позиции товара. Формат строки данных имеет вид 

Позиции Данные 

1-4 Номер позиции товара 

5-24 Описание товара 

25-27 Имеющееся количество 

28-30 Заказанное количество 

31-50 Место расположения склада 

Признаком конца данных служит строка с номером позиции, равным 9999. 

Для каждой введенной строки наличное количество товара суммируется с коли- 
чеством ‘заказанного товара. Выдается предупреждающее сообщение о необходимости 
дополнительного заказа, если суммарное количество имеющегося и заказанного 
товара по данной позиции менее 10. После окончания ввода всех строк печатается 
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сообщение, содержащее номер позиции и описание для товара, количество которого 
максимально (затоваривание), и место расположения склада с этим видом товара. В 
конце печатается общее число позиций товара, подлежащего дополнительному заказу. 

Программа INVENTORY 

with TEXT-ID; use TEXT-IO; 
procedure INVENTOR/ is 

package INT_IO is new INTEGER_IO<INTEGER); 
use INT_IO; 

type QUANTITY is range О .. 999; 
type ITEM-NO is range 0 .. 9999; 

TOT Al_QUANTITY_PER_ITEM/ 

TOTAL-REORDERED-ITEMS = QUANTITY; 

HIGH_QUANTITY-PER-I ТЕМ : QUANTITY; 

package QUANT-IO Is new INTEGER-IO(QUANTITY); 

use QUANT-IO; 

package ITEM-IO is new INTEGER_IG<ITEM-NO); 
use ITEM-IO; 

QUANT-ON-HAND, QUANT-ON-ORDER : QUANTITY; 

ГТЕМ -NO-IN, HIGH_ITEM_NO_IN : ITEM-NO; 

REORDER-POINT , constant QUANTITY ==10; 

ITEM-DESCRIPTION, HIGH-I ТЕМ -DESCRIPTION = 

STRINGd .. 20); 
type WAREHOUSE is 

(ILLINOIS,NEW-YORK,TEXAS,CALIF0RN1A,FLORIDA); 

HIGH-WAREHOUSE, WAREHOUSE-IN : WAREHOUSE; 
package WAREHOUSE-10 is new 

ENUMERATION-IO(WAREHOUSE); 
use WAREHOUSE-10; 
begin 

TOTAL-REORDERED-ITEMS == 0; 

HIGH-QUANTITY-PER-ITEM := 0; 

GET< ITEM-NO-IN, 4 ); 

— Здесь используется пакет ITEM -ГО. 
while I ТЕМ -NO-IN /= 9999 
loop 

GET(ITEM-DESCRIPTION); 

GET(QUANT-ON-HAND, 3); 

— Здесь необходим пакет QUANT_I0. 

GET < QUANT-ON-ORDER,3); 

GET<WAREHOUSE_IN); 

TOTAL-QUANTITY-PER-ITEM := QUANT-ON-HAND + 

QUANT-ON-ORDER; 

if HIGH-QUANTTTY-PER-ITEM < 

TOTAL-QUANTITY-PER-ITEM 

then 

HIGH-QUANTITY_PER_ITEM == 

TOTAL-QUANTITY-PER-I ТЕМ ; 

HIGH_ITEM_NO_IN == ITEM-NO-IN; 

HIGH_ITEM_DESCRIPTION == ITEM-DESCRIPTION; 

HIGH-WAREHOUSE := WAREHOUSE-IN; 
end if; 

if TOTAL-QUANTITY-PER-ITEM < REORDER-POINT; 
then 

NEW-LINE; 

PUT(ITEM-DESCRIPTION); 
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PUT< 

" *** This item has to be reordered *** "); 

NEW—LINE; 

TOTAl_REORDERED!ITEMS .- 

TOTAL-REORDERED-ITEMS + 1; 

end if; 

SKIP-LINE; 

GET(ITEM-NO-IN); 

end loop; 

NEW-LINE; 

PUT(" The highest inventory level is for "); 

PUT(HIGH_I ТЕМ -NO-IN); 

PUT(HIGH_ITEM-DESCRIPTION); 

NEW-LINE; 

PUT(" Located in “); 

PUT(HIGH-WAREHOUSE); 

NEW-LINE; 

PUT(" The total number of items needed to be " & 

" reordered is "); 

PUT( TOTAL-REORDERED-ITEMS/ 4 ); 

end INVENTORY; 

1.4. СВЕДЕНИЯ О ВЫРАЖЕНИЯХ 

До сих пор нам встречались выражения, располагавшиеся справа от составного 
символа =" в операторах присваивания, а также после зарезервированного слова if 
(если) в операторах if. Эти выражения были весьма простыми и состояли в основном из 
простейших выражен и і Г. которыми в наших примерах являлись литералы, константы и 
переменные. 

Выражения представляют собой формулы, по которым вычисляются значения. 
Для литералов, констант и переменных (т. е. для только что упомянутых простейших 
выражений) значение, вычисляемое по формулам,-это значение, связываемое непо¬ 
средственно с данным литералом или идентификатором. Однако простейшие выра¬ 
жения могут комбинироваться с помощью операций и образовывать более сложные 
выражения. 

Операции применяются к операндам. Если для операции требуется только один 
операнд, то она называется унарной ( одноместной ). Например, not -это унарная 
логическая операция. Символы " + " и " —" при употреблении их как знаков числа 
(положительный и отрицательный) обозначают унарные арифметические операции. 
Если для применения операции требуются два операнда, то она называется бинарной 
операцией. Например, " + " при сложении и при умножении-это арифметические 
бинарные операции. Зарезервированное слово and представляет логическую бинарную 
операцию. 

Для операций установлены приоритеты, определяющие порядок их выполнения. 
Операции с более высоким приоритетом выполняются раньше, чем операции с низким 
приоритетом. Если несколько операций имеют одинаковый приоритет, то они выпол¬ 
няются слева направо. Порядок выполнения операций может быть изменен с помощью 
скобок. В этом случае выражения, стоящие в скобках, вычисляются первыми. Ниже 
приведен полный список предопределенных операций, которые применимы к целым 
типам. Операции перечислены в порядке убывания приоритетов, на одной строке даны 
операции с одинаковыми приоритетами. 

**, abs Возведение в степень, вычисление абсолютной величины числа 

*, /, mod, rem Умножение, деление, остаток от деления (сохраняется знак делите¬ 

ля), остаток от деления (сохраняется знак делимого) 
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+ , — Знаки (унарные операции) 

+ , — Сложение, вычитание (бинарные операции) 

= , /=, <, <=, >, >=, in, not in 

В последней строке приведены операции с наименьшим приоритетом, применяе¬ 
мые к целым числам. Смысл этих операций такой: 

= Равенство 

/= Неравенство 

> Больше 

> = Больше или равно 

< Меньше 

< = Меньше или равно 

in Проверка принадлежности 

not in То же 

Операции in и not in называются операциями проверки принадлежности, а осталь¬ 

ные операции -операциями отношений. Для перечисляемых типов допустимы только 
операции отношений и операции проверки принадлежности. 

Операции проверки принадлежности имеют сложные формы. В данной главе будет 
рассмотрена только наиболее простая форма таких операций, когда левый операнд 
является переменной, а правый операнд-диапазоном значений. 

Обратите внимание на операции > = (больше или равно) и < = (меньше или 
равно). Их ни в коем случае нельзя путать с последовательностями символов = > и 
= <. Так, символ = > используется для указания на возможные альтернативы выбора 
в операторах case (сМ. гл. 4). 

Далее будут приведены примеры различных выражений. Будем считать, что при 
этом используются следующие объявления: 

type DAY is (MON, TUE, WED, THU, FRI, SAT, SUN); 

I, J : INTEGER; 

CURRENT_DAY, PREVIOUS-DAY : DAY; 

Вот некоторые примеры правильных выражений и пояснения к ним: 

Выражение Описание выражения 

I ** 5 Содержимое переменной I возводится в степень 5 

3 + I * J Значение переменной I умножается на значение пере¬ 

менной J и к результату прибавляется 3 

5/3 Целое число 5 делится на 3, а дробная часть отбрасыва¬ 

ется; результат равен 1 

— I + J = 100 * J Вначале вычисляется 100*1, затем —I, потом — I + J; 

далее выполняется проверка равенства 

I in 1 .. J Выполняется проверка принадлежности. Если значение 

переменной I окажется в диапазоне целых чисел от 1 
до J, то в результате выполнения операции полу¬ 
чится предопределенное логическое значение TRUE, 
в противном случае-значение FALSE 

I rem 5 Возвращает целое значение остатка от деления, знак 

результата совпадает со знаком делимого. Если I 
равно 23, то результат равен 3. Если I равно —23, то 
получится —3 

23 rem —5 Получится 3 

I mod 5 Эта операция дает число, знак которого равен знаку 

делителя, а абсолютное значение равно абсолютному 
значению остатка. Если I равно 23, то результат 
равен 3 

I mod —5 Результат операции отрицателен. Если I равно 23, то 

получится —3 
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CURRENT. DAY < Если в списке значений для типа DAY значение пере- 

PREVIOUS..DAY менной CURRENT-DAY встречается раньше, чем 

значение, которое принимает переменная PREVIOUS- 
DAY, то в результате выполнения операции получит¬ 
ся TRUE, в противном случае -FALSE 

CURRENT-DAY not in Mon .. Операция проверки принадлежности даст результат 
PREVIOUS _DAY TRUE предопределенного логического типа, если 

значение переменной CURRENT-DAY находится вне 
диапазона значений от Моп до значения, принимае¬ 
мого переменной PREVIOUS-DAY 


Напомним, что в выражениях обычно не разрешается смешивать разные типы. 
Однако при использовании целых и перечисляемых типов можно применять атрибуты 
к величинам одного типа для получения значений другого типа. Например: 

I + DAY'POS (CURRENT DAY) 

-правильное выражение, поскольку значение, даваемое атрибутом POS имеет целый 
тип. Выражение 

CURRENT .DAY <= DAYVAL(I) 

Также правильно, если I является целым числом в диапазоне от 1 до 7, потому что 
значение, вырабатываемое атрибутом VAL, принадлежит к типу DAY. Разумеется, если 
поступать в соответствии с правилами, можно строить сложные и длинные выражения. 
Вот пример верного выражения: 

I + J ** 2 - 7 / I * J ** 4 + J / I ** 3 * J rem і 

Обратите внимание на то. что результатом выполнения операций сравнения или 
проверки принадлежности является значение логического типа. Выражения, в резуль¬ 
тате выполнения которых получаются значения типа BOOLEAN, можно комбиниро¬ 
вать и далее, используя логические операции not (НЕ), and (И) и or (ИЛИ), а также 
некоторые другие логические операции, которые будут рассмотрены в гл. 4. 

Логическая операция not является унарной и имеет такой же наивысший приори¬ 
тет, как и операции * * и abs. Логические операции and и or - бинарные, а их приоритет 
является наинизшим, т. е. даже ниже, чем у операций сравнения. 

Теперь повторим применение этих логических операций. Результатом вычисления 
выражения A and В будет TRUE тогда и только тогда, когда и результат вычисления А 
равен TRUE и результат вычисления В равен TRUE. Результат вычисления выражения 
A or В равен FALSE тогда и только тогда, когда и А и В равны FALSE. Результат 
вычисления выражения not А равен TRUE, если А равно FALSE, и, наоборот, результат 
равен FALSE, если А равно TRUE. 

В языке Ада различаются динамические и статические выражения. Если возможно 
вычислить выражение до того, как начнется выполнение последовательности_опера- 
торов программы, то выражение называется сМатическим, в противном случае - ди¬ 
намическим. 

Ниже следует текст программы DAY-CONVERSION. Входная строка для прог¬ 
раммы состоит из двух полей. В первом из них задается номер дня года в соответствии 
с Юлианским календарем, причем дни отсчитываются с первого января. Во втором 
поле указывается, на какой день недели приходится первое января нужного года. 
Поскольку нас могут интересовать разные года, то первое января может быть разным 
днем недели. Программа выводит название дня недели по представленному номеру дня 
в году, при этом указывается, является ли этот день выходным или нет. 



28 


Глава I 


Программа DAY-CONVERSION 
with ТЕХТ-ІО; use ТЕХТ_ІО; 
procedure DAY-CONVERSION is 

type DAY is (MON / TUE / WED / THU,FRI,SAT,SUN); 
package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 

package DAY-IO is new ENUMERATION-10(DAY); 
use DAY-IO; 

JULIAN-DAY : INTEGER; 

CURRENT-DAY/ FIRST-JAN-DAY . DAY; 

CURRENT_DAY-POS : INTEGER; 
begin 

GET (JULIAN-DAY, 3),; 

GET(FIRST_JAN-DAY); 

CURRENT_DAY-POS == JULIAN-DAY mod 7 + 

DAY'POS(FIRST-JAN-DAY); 
if CURRENT-DAY-POS > 7 
then 

CURRENT-DAY-POS =* CURRENT-DAY-POS - 7; 
end if; 

CURRENT-DAY := DAY'VAL(CURRENT-DAY-POS); 

NEW-LINE; 

PUT(" This Julian day falls on a "); 

PUT(CURRENT-DAY); 
if CURRENT-DAY not in Mon .. Fri 
then 

PUT<“ is a weekend"); 
else 

PUT(" is a working day “); 
end if; 

end DAY-CONVERSION; 

1.5. СВЕДЕНИЯ О ПАКЕТАХ, ПОДПРОГРАММАХ 
И ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЯХ 

Программы на языке Ада составляются из одного или нескольких программных 
сегментов. Программные сегменты можно транслировать отдельно друг от друга, что 
создает значительные преимущества при разработке больших программных систем. 
Подпрограммы-это один из видов программных сегментов. Другим видом программ¬ 
ных сегментов являются задачи (они будут рассмотрены в гл. 10) и пакеты. В этом 
разделе кратко рассматриваются пакеты и подпрограммы. 

1.5.1. Пакеты 

Одним из новшеств языка Ада является понятие пакета. Пакеты -это совокупно¬ 
сти ресурсов, которые могут быть использованы различными программами. К этим 
ресурсам относятся: типы, объекты, подпрограммы, другие пакеты и различные 
операции, определенные для заданных типов. В добавление к этому разработчик пакета 
может целиком контролировать уровень доступа и осведомленности внешнего поль¬ 
зователя по отношению к ресурсам пакета. 

В языке Ада имеется ряд предопределенных пакетов, например пакет ТЕХТ-ІО. 
Доступ к предопределенному пакету может быть обеспечен для любой программы на 
Аде. Операторы вида 
with ТЕХТ_ІО; 
use ТЕХТ-ІО; 
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ранее применялись нами для того, чтобы ресурсы пакета TEXTJO стали доступными 
программе на Аде. Именно это делает фраза подключения контекста with. Фраза 
использования use создает дополнительные удобства, позволяя употреблять в нашей 
программе имена, объявленные в пакете TEXTJO, таким образом, как будто бы они 
были объявлены в самой программе. 

В языке Ада есть и так называемые родовые средства для подпрограмм и пакетов. 
Родовые средства Ады дают возможность программисту создавать такие подпрограм¬ 
мы или пакеты, которые, будучи четко ориентированы на решение конкретной задачи, 
имеют тем не менее достаточную степень обобщенности, чтобы охватывать и ряд 
вариаций этой задачи. Для использования родовых подпрограмм и пакетов в про¬ 
грамме на Аде они должны быть конкретизированы. Под термином «конкретизирова¬ 
ны» подразумевается то, что должна быть создана их уникальная версия, предназна¬ 
ченная для решения только заданной конкретной вариации задачи. В этой главе уже 
использовалась конкретизация родового пакета для создания пакета, выполняющего 
операции ввода-вывода с объектами конкретного целого или перечисляемого типа. 
Например, в нескольких из программ, приведенных в этой главе, употреблялся 
оператор 

package INTJO is new INTEGERJO (INTEGER); 

При помощи этого оператора из родового пакета INTEGERJO создавалась конкрет¬ 
ная копия INTJO, а тип объектов, для которого производилась настройка родового 
пакета, был предопределенным целым типом INTEGER. 

1.5.2. Подпрограммы 

Подпрограмма состоит из двух частей-спецификации и тела. В подпрограммах из 
этой главы тело выполняет роль своей собственной спецификации. Имеется в виду, что 
ни в одной из приведенных подпрограмм нет отдельной части спецификации. Другими 
словами, в них нет раздельно транслируемых спецификаций. Более подробно о 
спецификации подпрограмм говорится в гл. 5. 

В языке Ада имеются два вида подпрограмм -процедуры и функции. Оба вида 
подпрограмм определяют совокупность действий и являются главным способом 
реализации алгоритмов на Аде. На функции накладывается дополнительное требова¬ 
ние: они должны возвращать некоторое значение, являющееся результатом каких-либо 
вычислений. Поэтому функции могут входить в состав выражений. 

Процедуры запускаются в других программах путем указания их имени, за 
которым следуют список аргументов, заключенный в скобки, и точка с запятой. 
Обращения к процедурам считаются самостоятельными операторами. 

В программах данной главы имеется много примеров вызовов процедур. Напри¬ 
мер: 

NEWJINE; 

-это обращение к процедуре NEW_LINE. Данная процедура является процедурой без 
параметров, и поэтому у нее отсутствуют аргументы. Другой пример вызова проце¬ 
дуры: 

GET (I); 

Здесь производится обращение к процедуре GET, переменная I служит аргументом. 

Вызов функции будет выполняться тогда, когда ее имя, снабженное необходимыми 
аргументами, появится в выражении. Например, в пакете TEXTJO имеется функция 
LINE J.ENGTH, результатом обращения к которой является длина строки (целое чис¬ 
ло, равное количеству позиций в строке печати). Использование выражения вида 
LINE_LENGTH < 80 в любой из программ данной главы приводит к вызову функции 
LINE_LENGTH. 
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1.5.3. Исключительные ситуации 

При выполнении программы на языке Ада всегда существует потенциальная 
возможность возникновения ошибки того или иного рода. Например, может оказаться 
неправильным тип входных данных, может встретиться попытка деления на нуль и т. д. 

Эти ошибки можно обрабатывать в Аде путем возбуждения так называемых 
исключительных ситуаций. Если отсутствуют некоторые особые операторы, предназ¬ 
наченные для обработки исключительной ситуации, то возбуждение исключительной 
ситуации в главной программе на Аде обычно означает, что выполнение главной 
программы прекратится, и, разумеется, программа не сможет выполнитъ запланиро¬ 
ванные действия. 

В языке Ада имеется ряд предопределенных исключительных ситуаций. Среди 
hhx-CONSTRAINT_ERROR (Нарушение _уточнения), возбуждающаяся, например ес¬ 
ли значение выходит за границы диапазона, и NUMERIC..ERROR (Числовая ошибка), 
возникающая, например, при попытке деления на нуль. 

Механизм исключительных ситуаций языка Ада может быть использован не 
только для обработки ошибок, возникающих при выполнении программы, но и для 
обработки других особых состояний. Что следует понимать под «особым состоянием», 
определяется программистом в зависимости от характера конкретной прикладной 
задачи. 

Итак, выше был приведен краткий обзор таких понятий, как подпрограммы, 
пакеты и исключительные ситуации. Более полно эти темы освещаются соответственно 
в гл. 5, 7 и 11. На данном этапе пока не будем больше углубляться в эти вопросы. 
Теперь покажем, как, пользуясь этой отрывочной информацией, можно составлять и 
применять процедуры при программировании на языке Ада. 


1.5.4. Программа, составленная с использованием процедур 

В следующей программе, имеющей имя INVENTORY__REPORT, на вход посту¬ 
пают строки, имеющие тот же самый формат, что и строки для программы INVENTORY 
из разд. 1.3.4. IJo здесь к входным данным предъявляется дополнительное требование: 
записи заранее отсортированы по признаку места расположения склада, а для каждого 
конкретного места расположения они отсортированы по номеру позиции товара. 
Сортировка по признаку места расположения склада производится не в алфавитном 
порядке, а в соответствии с тем местом, которое занимает это расположение в списке 
значений для перечисляемого типа WAREHOUSE. Например, FLORIDA идет после 
NEW_YORK. Если внутри штата имеется несколько разных складов, то входные 
данные могут содержать несколько записей для одного и того же номера позиции 
товара. 

Программа должна выдавать следующие сведения. Для каждой позиции следует 
отобразить: номер позиции товара, описание товара, общее количество товара, 
имеющегося в наличии, и общее количество товара в заказе. Для каждого места 
расположения склада нужно напечатать общее число позиций товаров, суммарное 
количество имеющегося товара и суммарное количество заказанного товара (для всех 
позиций). В последней строке распечатки должно быть выдано итоговое количество 
имеющегося и заказанного товара. Если порядок следования входных строк будет 
нарушен, то необходимо выдать диагностическое сообщение. Строки, выпадающие из 
заданного порядка следования, не обрабатываются. Признаком конца данных служит 
строка с номером позиции товара, равным 0. 
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Программа INVENTORY_REPORT 


with TEXT-IO; use TEXT_IO; 
procedure INVENTORY-REPORT is 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO/ 

type QUANTITY is range О .. 999; 
type ITEM-NO is range 0 .. 9999; 
CURR_QUANT_ON_HAND/ CURR_QUANT_ON_ORDER 
QUANTITY; 

PREV-QUANT-ON-HAND/ PREV_QUANT_ON_ORDER : 
QUANTITY; 

CURR—ITEM/ PREV-ITEM = ITEM-NO; 
TOT_QUANT_ON_HAND_LOC, TOT_QUANT_ON_ORDER_LOC : 
QUANTITY; 

TOT—QUANT—ON-HAND-I ТЕМ/ 

TOT-QUANT-ON—ORDER-ITEM .• QUANTITY; 
TOT_QUANT_ON_HAND, TOT_QUANT_ON_ORDER : 

QUANTITY; 

package QUANT-10 is new INTEGER-I0(QUANTITY); 
use QUANT-10; 

package ITEM-IO is new INTEGER_IO(ITEM-NO); 
use ITEM-IO; 

CURR-ITEM-DESCRIPTION, PREV_ITEM-DESCRIPTION : 

STRINGd .. 20); 
type WAREHOUSE is 

(ILLINOIS/NEW-YORK,TEXAS,CALIFORNIA / FLORIDA); 
package WAREHOUSE -ІО is new 

ENUMERATION-10 < WAREHOUSE); 
use WAREHOUSE-10; 

CURR-WAREHOUSE/ PREV-WAREHOUSE : WAREHOUSE; 

procedure NEW-ITEM-PROC is 

— Об'екты, об'явленные в процедуре 

— INVENTORY-REPORT / будут известны и в теле про- 

— цедуры NEW-ITEM-PROC и их можно там исполь- 

— зовать. Более детальные пояснения приведены в 

— гл. 7/ разд.7.3. 
begin 

— Эта процедура вызывается/ когда обрабатывается 

— новая позиция ведомости и когда нужно отобра- 

— зить старую позицию и итоговые данные. 

NEW-LINE; 

PUT(PREV-ITEM); 

PUT(PREV-ITEM-DESCRIPTION); 

PUT(TOT-QUANT_ON_HAND_ITEM/ 5); 

PUT(T0T_QUANT_0N_0RDER_ITEM, 5); 
T0T_QUANT_0N_HAND_L0C >- TOT—QUANT—ON—HAND—LOC + 
TOT_QUANT_ON_HAND_I ТЕМ ; 
T0T_QUANT_0N_0RDER_L0C ,= T0T_QUANT_0N_0RDER_L0C 
+ T0T_QUANT_0N_0RDER_ITEM; 
TOT_QUANT_ON_HAND_ITEM := 0; 

TOT-QUANT-ON-ORDER-ITEM ==0; 
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PREV-ITEM := CURR-I ТЕМ; 

PREV_ITEM-DESCRIPTION : = CURR_ITEM-DESCRIPTION; 
PREV-QUANT-ON-HAND := CURR—QUANT-ON-HAND; 
PREV_QUANT_ON_ORDER := CURR_QUANT_ON_ORDER; 
end NEW-1 ТЕМ— PROC; 

procedure NEW-LOC-PROC is 
begin 

— Эта процедура вызывается/ когда считывается 

— новое место расположения склада/ а старое долж- 

— но быть отображено вместе с итоговыми данными 

— по нему. 

NEW-LINE/ 

PUT ( PREV-WAREHOUSE / 20); 

PUT(T0T_QUANT_0N_HAND_L0C, 7 ); 

PUT(T0T_QUANT_0N_0RDER—LOC / ?); 

TOT_QUANT_ON_HAND := TOT_QUANT_ON_HAND + 

TOT-QUANT—ON—HAND—LOC; 
TOT-QUANT—ON-ORDER := TOT—QUANT—ON-ORDER + 

TOT_QUANT_ON_ORDER_LOC; 
TOT_QUANT_ON_HAND_LOC = = O; 
TOT_QUANT_ON_ORDER_LOC ,= 0; 

PREV-ITEM := CURR-I ТЕМ/ 

PREV-ITEM_DESCRIPTION == CURR-ITEM-DESCRIPTION; 
PREV_QUANT_ON_HAND == CURR_QUANT_ON_HAND; 
PREV_QUANT_ON_ORDER := CURR-QUANT—ON-ORDER; 
PREV-WAREHOUSE == CURR-WAREHOUSE; 
end NEW_LOC_PROC; 

begin 

— Вначале инициализируются некоторые итоговые 

— данные. 

T0T_QUANT_0N_HAND_L0C == О; 
T0T_QUANT_0N_0RDER_L0C ,= О; 

TOT_QUANT_ON_HAND_ITEM := О; 

TOT_QUANT_ON_ORDER_ I ТЕМ == О; 

TOT_QUANT_ON_HAND := О; 

TOT_QUANT_ON_ORDER == О; 

GET(CURR- IТЕМ); 
if CURR-I ТЕМ /= 0 

— Самая первая строка используется для инициа- 

— лизации “предыдущей позиции". 
then 

GET(CURR-ITEM-DESCRIPTION); 

PREV_ITEM_DESCRIPTION := CURR-ITEM-DESCRIPTION; 
GET(CURR_QUANT_ON_HAND); 

PREV-QUANT-ON-HAND := CURR_QUANT_ON_HAND; 

GET(CURR_QUANT_ON_ORDER); 

PREV_QUANT_ON_ORDER := CURR_QUANT_ON_ORDER; 

GET(CURR-WAREHOUSE); 

PREV-WAREHOUSE := CURR-WAREHOUSE; 
end if; 

CURR-I ТЕМ .= PREV-ITEM; 

SKIP-LINE; 
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while CURR-ITEM /= О 
loop 

if CURR_WAREHOUSE = PREV-WAREHOUSE and 
CURR-ITEM = PREV-ITEM; 

then 

— Заметьте/ что условие истинно для первой 

— считанной строки. Ниже производится на- 

— копление итоговых сведений по идентичным 

— позициям товара/ хранящихся на одном и 

— том же складе. 

TOT_QUANT_0N_HAND_ IТЕМ •= 

ТОТ— QUANT—ON—HAND—ITEM + 
CURR_QUANT_ON_HAND; 

TOT—QUANT—ON—ORDER—ITEM := 

TOT_QUANT_ON_ORDER_ITEM + 
CURR-QUANT-ON-ORDER; 

elsif CURR-WAREHOUSE = PREV-WAREHOUSE and 
CURR-ITEM > PREV-ITEM; 

then 

— Новый вид товара на том же складе. 

NEW-ITEM-PROC ; 

elsif CURR-WAREHOUSE > PREV-WAREHOUSE 
then 

NEW-ITEM-PROC/ 

NEW_LOC_PROCi 

else 

PUT<" This line is bad and will be skipped "); 
end if; 

SKIP-LINE; 

GET(CURR-ITEM); 
if CURR-ITEM /= 0 
then 

— Если номер позиции товара в строке прави- 

— лен/ то считаем с этой строки оставшиеся 

— данные. 

GET < CURR-1TEM-DESCR IРТ ION ); 

GET ( CURR—QUANT-ON-HAND); 

GET(CURR_QUANT_ON_ORDER); 

GET(CURR-WAREHOUSE); 
end if; 
end loop; 

— Достигнут конец входных данных/ теперь следу- 

— ет отобразить последние итоговые сведения по 
-- последнему виду товара на складе. Это делает- 

— ся в последних двух строчках. 

NEW-ITEM-PROC; 

NEW-LOC-PROC; 

NEW-LINE; 

PUT(" THE GRAND TOTAL IS "); 

PUT(TOT-QUANT—ON-HAND); 

PUT(TOT_QUANT_ON_ORDER); 
end INVENTORY-REPORT; 
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В программе INVENTORY_REPORT используется зарезервированное слово elsif 
(иначе_если). Оно входит в состав оператора if (если). Вначале вычисляется условие, 
стоящее за зарезервированным словом if. Если условие истинно, то выполняются 
операторы, следующие за зарезервированным словом then (то). В противном случае 
вычисляется выражение, стоящее за зарезервированным словом elsif. Если оно в свою 
очередь истинно, то выполняются операторы, стоящие за elsif ... then. В противном 
случае вычисляется следующее условное выражение. Этот процесс продолжается до тех 
пор, пока одно из условий, расположенных за зарезервированным словом elsif, не 
окажется истинным, либо пока не будет достигнуто зарезервированное слово else 
(иначе). В последнем случае будут выполняться операторы, следующие за зарезерви¬ 
рованным словом else. 

Приведенный ниже пример поможет лучше уяснить употребление ветви elsif в 
операторе if. Здесь предполагается, что переменная I принадлежит к типу INTEGER. 

if I > 3 
then 

I 1 * li 

elsif I > 1 

then 

I := I * 3/ 

elsif I > -3 

then 
I := 0/ 

else 

I := I / 3; 
end if; 

Если в данном примере I равно 4, то истинно первое условие (I > 3). При этом 
значение I станет равным 4 х 4 = 16. Другие условия в этом случае не проверяются 
(хотя они также истинны поскольку 4 > 1 и 4 > — 3), так как ранее проверенное условие 
уже оказалось истинным. Условие I > 1 проверяется тогда, когда условие I > 3 не 
выполняется. А условие I > — 3 проверяется только тогда, когда и I > 3, и I > 1 ложны. 
Операторы, следующие за зарезервированным словом else, выполняются тогда и 
только тогда, когда все проверенные ранее условия (I > 3, I > 1, I > — 3) ложны. 


УПРАЖНЕНИЯ 

1. Измените программу MAXALL из разд. 1.1.3 так, чтобы в ней определялись наибольшее 
число и число, следующее за ним. 

2. Перепишите программу CHAR_MAX3 из разд. 1.3.2 таким образом, чтобы печаталась 
первая по алфавиту буква среди нескольких введенных букв. Признаком конца последовательнос¬ 
ти букв служит символ "!". 

3. Переделайте программу HEAVY из разд. 1.3.2 так, чтобы она обрабатывала дополни¬ 
тельное поле строки в колонке 21. Там размещается признак пола-строка, состоящая из одного 
символа (М-для мужчины и F -для женщины). На выходе требуется получить имя и вес наиболее 
тяжелого мужчины, имя и вес наиболее тяжелой женщины и те же характеристики для самой 
легкой женщины. 

4. Модифицируйте программу UP_MONDAY из разд. 1.3.4 таким образом, чтобы в ней в 
добавление к уже представляемым сведениям печаталось число торговых дней по понедельникам, 
за которыми не следуют торговые дни по вторникам, и количество торговых дней по вторникам, 
перед которыми не идут торговые дни по понедельникам. 

5. Внесите такие изменения в программу INVENTORY из разд. 1.3.4, чтобы выводился 
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ответ на вопрос: верно ли, что на складе в Техасе зарегистрировано больше наименований 
товаров, чем в Калифорнии? 

6. Измените программу DAY_CONVERSION из разд. 1.4 так, чтобы можно было получить 
ответ на вопрос: правда ли, что на вход программы подано больше строк с номерами дней, 
попадающих на понедельники, чем на вторники? 

7. Перепишите программу INVENTORY_REPORT из разд. 1.5.4 в предположении, что 
имеется только одно место расположения склада. Данные о видах товаров, хранящихся на складе, 
отсортированы по номерам позиций. Допускается наличие строк с одинаковыми номерами 
позиций товаров. Эту программу написать легче, чем исходную, поскольку количество уровней 
размещения товаров тут уменьшается на единицу. 



Глава 2 


Действительные, регулярные 
и комбинированные типы 


2.1. ДЕЙСТВИТЕЛЬНЫЕ ТИПЫ 

Действительные типы обеспечивают конечный набор значений, аппроксимирую¬ 
щих действительные числа. Согласно математическим представлениям, существует 
бесконечно много действительных чисел и они могут быть произвольно близки друг к 
другу. Но в ЭВМ для представления действительного числа предусмотрено только 
конечное количество бит. По этой причине она не может обеспечить абсолютно точное 
представление любого действительного числа и поэтому в языке Ада для каждого из 
объявлений типов, в которых используются действительные числа, определяется так 
называемый модельный набор действительных чисел. 

Как и в случае целых чисел, здесь имеется предопределенный действительный тип, 
имеющий название FLOAT (Плавающий). 

Например: 

RATE : FLOAT; 

объявляет переменную RATE как переменную действительного типа FLOAT. Однако 
при использовании этого объявления пользователь полагается на такую точность, 
которая определяется используемой в конкретном случае аппаратурой. 

Для того чтобы передать управление точностью от аппаратных средств к прог¬ 
раммным (такая передача улучшает мобильность программ), в языке Ада имеется 
механизм для определения границ ошибок представления для значений конкретного 
действительного типа. Этот механизм описывается в следующих разделах книги. В 
языке Ада могут быть определены два вида действительных типов-типы с плавающей 
точкой (или плавающие типы) и типы с фиксированной точкой (или фиксированные 
типы). Плавающие типы обеспечивают представление действительных значений с 
некоторой относительной точностью, а фиксированные типы представляют действи¬ 
тельные значения с некоторой абсолютной точностью. Итак: механизм точности в 
языке Ада различен для действительных типов. Целые и действительные типы 
(плавающие и фиксированные) в совокупности называются числовыми типами. 

2.1.1. Типы с плавающей точкой (плавающие типы) 

Объявление типа с плавающей точкой производится в соответствии со схемой 
type имя_типа i s digits статическое_целое^выражение; 

Если задается диапазон значений, то схема приобретает вид 

type имя_типа i s digits статическое_целое_выражение range L. . R; 

Член объявления “digits статическое_целое_выражение” называется указанием 
погрешности представления (accuracy constraint). Вспомните, что статическое целое 
выражение-это выражение, значение которого может быть вычислено до начала 
выполнения программы. Член “range L .. R” называется уточнением диапазона значений 



Действительные, регулярные и комбинированные типы 37 

(range constraint). Величина L определяет нижнюю (левую) границу этого диапазона, а 
величина R- верхнюю (правую) границу. 

Примеры объявлений плавающих типов: 
type DISTANCE is digits 8; 

type SECURITY.PRICE is digits 10 range 0.0.. 10000.00; 

В первом объявлении вводится тип DISTANCE с относительной точностью в 8 
десятичных цифр. Каждая десятичная цифра соответствует приблизительно 3.32 
двоичным разрядам, поэтому точность, выраженная в двоичной системе счисления, 
здесь составит 8 х 3.32 или 27 двоичных разрядов. Обозначим это число через В. 

Определено, что для заданной точности В (в двоичной системе) порядок мо¬ 
дельных чисел может находиться в пределах от — 4*В до +4*В; набор модельных 
чисел всегда включает нулевое значение. Общая форма модельных чисел такова: 
знак * двоичная_мантисса * 2.0 ** порядок 

где двоичная_мантисса имеет В двоичных цифр после десятичной точки (27 в 
рассмотренном случае). Одно и то же число может иметь множество допустимых 
внешних представлений, соответствующих приведенной выше общей форме. Напри¬ 
мер, число 0.5 (0.1 в двоичной системе) можно записать как 
1/2 *2** 0 
1/4*2** 1 

И т.д. 

Модельные числа нормализованы. Это значит, что среди множества возможных 
представлений двоичного числа, соответствующих общей форме, выбирается число, 
двоичная мантисса которого равна по меньшей мере 0.1 в двоичной или 0.5 в 
десятичной системе счисления. 

Наименьшее ближайшее к нулю положительное число среди модельных чисел 
выражается формулой: 

2.0**(—4*В — 1) 

Оно равно значению 0.1 в двоичной или 0.5 в десятичной системе, умноженному на 2 в 
максимальной отрицательной степени: 

0.5 *2 **(—4* В) 

Для нашего примера при В = 27 это число равно 2.0**(—109). Оно определяется 
отдельно для каждого плавающего типа. Его можно получить при помощи запроса 
атрибута DISTANCE'SMALL. Если F- произвольный плавающий тип, то форма 
записи -F'SM ALL. 

Наибольшее положительное модельное число для нашего типа DISTANCE будет 
иметь двоичную мантиссу 0.11... (27 единиц)... 11, которую можно также записать как 
1-0.00...(26 нулей)...01. Показатель степени равен 4*27 = 108. Само число равно 
(1 -2 **(-27)) *2.0 **(4*27) 

Это значение можно получить при помощи запроса атрибута DISTANCE'LARGE . В 
общем случае наибольшее положительное значение для произвольного плавающего ти¬ 
па F можно получить при запросе атрибута F'LARGE. Это наибольшее число 
равно 

(1-2**(-В))*2.0**(4*В) 

Другой важной величиной при работе с модельными числами служит разность 
между 1.0 и следующим модельным числом. Для типа DISTANCE -это разность 
между 0.1 *2**(1) и 0.100...(25 нулей)...001 *2**(1), которая равна 2**(1 -27). Это 
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Рис. 2.1 . Модельные числа для плавающих типов. 
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значение может быть получено при запросе атрибута DISTANCE'EPSILON . В общем 
случае для любого плавающего типа F разность между 1.0 и следующим большим 
модельным числом равна 2**(1 — В). Ее можно получить посредством запроса 
F'EPSILON. 

Как говорилось выше, для плавающих типов задается относительная погрешность 
представления. Количество значащих цифр у плавающих чисел остается постоянным 
(например, для типа DISTANCE -это 8 десятичных цифр, что соответствует 27 
двоичным цифрам), а разность между двумя соседними числами изменяется. Она 
минимальна в окрестности нуля и равна 2 ** ( — 1 - 4 * В). В окрестности единицы она 
становится в 2 ** (3 * В + 2) раз больше. В этом случае она равна 2 ** (1 — В). А разность 
между наибольшим модельным числом и числом, следующим за ним, равна 2 ** (3 * В). 
Это иллюстрирует рис. 2.1. 

Во время вычислений может получиться значение, не являющееся модельным 
числом. Если значение окажется в интервале между двумя соседними модельными 
числами, то будет выбрано одно из них. Какое именно модельное число будет взято, 
зависит от конкретной реализации Ады. 

Когда в объявлении плавающего типа присутствуют и указание погрешности 
представления, и уточнение диапазона значений, то часть модельных чисел, попадаю¬ 
щих внутрь заданного диапазона, сохраняется, а остальные числа отбрасываются. 
Обратите внимание на то, что левая и правая границы диапазона значений должны 
задаваться статическими действительными выражениями. 

В нижеследующем списке операции для плавающих типов перечислены в порядке 
убывания их приоритетов: 
abs, ** Вычисление абсолютного значения, 

возведение в степень 
*, / Умножение, деление 

+ , — Знаки (унарные операции) 

+ , — Сложение, вычитание (бинарные 

операции) 

= , /=, <, <=,>,> =, in, not in 

Заметим, что операция ** (возведение в степень) определена только для возведения 
плавающего числа в целую степень. Результат выполнения арифметической операции с 
объектами плавающего типа будет принадлежать к тому же типу. 

2.1.2. Фиксированный тип 

Можно объявить действительный тип, имеющий абсолютную погрешность пред¬ 
ставления, если воспользоваться представлением с фиксированной точкой. Форма 
объявления для фиксированного типа такова: 

type имя_типа is delta абсолютная_погрешность_представления range L.. R; 
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Вот некоторые примеры: 

type AMOUNT is delta 0.001 range 0.00.. 10000.00; 

type PRICE is delta 0.0025 range 0.00.. 200.00; 

type LEVEL is delta 0.25 range -100.00 ..5000.00; 

Обратите внимание на то, что при объявлении фиксированных типов всегда нужно 
задавать уточнение диапазона значений, в то время как для плавающих типов указание 
диапазона не обязательно. 

Модельные числа для действительных чисел с фиксированной точкой отстоят друг 
от друга на одинаковом расстоянии, что обеспечивает заданную абсолютную точность 
представления. Гарантированная разность между двумя соседними числами не превы¬ 
шает требуемой абсолютной погрешности, которая задается в выражении, стоящем 
после зарезервированного слова delta. Это выражение должно быть статическим, а 
результат его вычисления - положительным действительным числом. Вполне возмож¬ 
но, что при реализации модельных чисел транслятор выберет другую величину 
погрешности, вероятно, более удобную для представления на конкретной ЭВМ. В этом 
случае фактическая абсолютная погрешность не может превышать указываемую 
программистом величину погрешности, а разность между любыми двумя соседними 
модельными числами должна быть равна фактической погрешности, умноженной на 
некоторый постоянный коэффициент. 

Несколько неожиданной особенностью фиксированных типов может явиться то, 
что левая (L) и правая (R) границы диапазона значений, определяемые действитель¬ 
ными статическими выражениями, не обязаны входить во множество модельных чисел. 
Единственное требование к ним состоит в том, что последовательность модельных 
чисел начинается (для L) и заканчивается (для R) на расстоянии от L и R (соответствен¬ 
но), не превышающем абсолютной погрешности заданной в объявлении типа. Так, 
например, если в объявлении типа LEVEL (см. выше) указано L = —100.00, то нет 
гарантии, что величина -100.00 действительно попадет во множество модельных 
чисел. Единственное, что можно гарантировать: наименьшее модельное число отстоит 
от —100.00 не более чем на +0.25. 

Запрос атрибута F'FIRST, где F- фиксированный тип, дает возможность получить 
и в дальнейшем использовать значение наименьшего модельного числа. Для нашего 
примера величина LEVEL'FIRST должна отстоять от —100.00 не более чем на ±0.25. 
Сходным образом, значение наибольшего модельного числа можно получить при 
запросе атрибута F'LAST. Для типа LEVEL атрибут LEVEL'LAST даст значение 
модельного числа, находящегося в пределах +0.25 от 5000.00. 

Остальные атрибуты фиксированных типов достаточно ясны. Если F- фиксирован¬ 
ный тип, то запрос атрибута F'DELTA даст значение указываемой программистом 
абсолютной погрешности. Для приведенного выше примера объявления фиксирован¬ 
ных типов можно воспользоваться атрибутом PRICE'DELTA, который даст значение 
0.0025, а атрибут AMOUNT'DELTA даст значение 0.001. 

Приведем и некоторые другие атрибуты для фиксированных типов: 

Атрибут Описание 

F'SMALL Наименьшее положительное 

модельное число для типа F 

F'LARGE Наибольшее положительное 

модельное число для типа F 

При работе с фиксированными типами возникают ошибки округления. Поскольку 
фиксированные типы наиболее часто используются при решении экономических задач, 
то встает резонный вопрос: каким образом можно обеспечить то, чтобы ошибки 
округления не приводили к получению неприемлемых, скажем, для бухгалтера резуль¬ 
татов? Что делать, если при сложении одного пенса с одним пенсом получится три 
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пенса? Одним из способов уменьшения вероятности таких ситуаций может служить 
выбор достаточно малой абсолютной погрешности представления фиксированных 
чисел. Скажем, при работе с пенсами следует выбрать величину абсолютной погреш¬ 
ности, равную 0.0001. 

В программах необходимо выполнять ввод-вывод чисел с фиксированной точкой. 
Для записи и для чтения значений некоторого фиксированного типа, как и в случаях 
целых и перечисляемых типов, требуются специальные пакеты, которые являются 
частью пакета ТЕХТ_ІО. То же самое справедливо и для плавающих типов. Использо¬ 
вание таких пакетов будет продемонстрировано позже в программе PAYROLL. 

Операции с фиксированными типами включают умножение (*) и деление (/). В этих 
операциях участвуют два фиксированных числа одного и того же типа, а в результате 
их выполнения получается число так называемого универсального фиксированного типа, 
имеющего точность, неявно определяемую реализацией языка Ада. Число универ¬ 
сального фиксированного типа следует явно преобразовать в число требуемого типа. 
Для этого нужно выражение универсального фиксированного типа заключить в скобки, 
а перед ними поставить имя желаемого типа. Пусть, например, имеется объявление 

AMTJN, AMT_OUT, AMT.RATIO: AMOUNT; 

Нам необходимо получить значение отношения AMT_IN/AMT_OUT, которое отно¬ 
сится к универсальному фиксированному типу. На Аде это записывается так: 

AMT_RATIO := AMOUNT (AMTJN/AMT_OUT); 

При сложении и вычитании не требуется явного преобразования типов. Поэтому 
можно написать 

AMTJN := AMTJN + АМЦЭІІТ; 

Для объектов фиксированного типа (переменных и констант) операция возведения 
в степень не определена. 

Ниже приводится сводка операций для фиксированных типов, начиная с наивыс¬ 
шего приоритета: 

abs ' Абсолютное значение 

*, / Умножение, деление 

+ , — Знаки (унарные операции) 

+ , — Сложение, вычитание (бинарные 

операции) 

=, /=, <, <=, >, >=, in, not in 

Как для плавающих, так и для фиксированных типов результат вычисления 
выражения должен находиться в пределах специфицированного для типа диапазона 
значений 1 ’. 


2.1.3. Программа, в которой используются 
действительные типы 

В нижеследующей программе PAYROLL (платежная ведомость) иллюстрируется 
применение действительных типов. Программа выполняет считывание информации о 
служащих. Каждая строка содержит сведения только об одном служащем и имеет 
следующий формат: 


Однако промежуточные значения могут выходить за этот диапазон. -Прим, перев. 
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Позиции Данные 

1-9 Номер по социальному страхованию 

10-30 Фамилия 

31-35 Количество часов, отработанных за 

неделю (два знака до и после 
десятичной точки, например 42.35) 

36-40 Почасовая оплата (в долларах и центах, 

например 12.45) 

41-42 Количество иждивенцев (целое число, 

например 5) 

Признаком конца файла служит строка с номером по социальному страхованию, 
равным 999999999. 

Для каждой считанной строки с данными о служащем будут выведены: фамилия 
служащего; номер по социальному страхованию; номинальная заработная плата за 
неделю; сумма, выдаваемая на руки. Будем считать, что налог на социальное 
страхование (обозначается как FICA) составляет 7.0% от номинальной зарплаты. 
Сумма, с которой исчисляется подоходный налог, равна номинальной плате минус 
10 долл., умноженные на число иждивенцев. Федеральный налог составляет 25% от 
этой суммы, а налог штата-5% от нее. Сумма, выдаваемая служащему на руки, 
определяется как разница между номинальной зарплатой и налоговыми выплатами. 


Программа PAYROLL 


with TEXT-IO; use TEXT-IO; 
procedure PAYROLL is 

package INT-IO is new INTEGER_IO<INTEGER); 
use INT-IO; 

type PAY is delta 0.001 range 0.00 .. 10000.00; 
HOURS.WORKED, HOURLY-RATE = PAY ; 

GROSS-PAY, NET-PAY, TAX-INCOME = PAY; 
NO_DEPENDENTS : INTEGER ; 

S0C-SEC-N0 : STRING (1 .. 9 ); 

EMP-NAME : STRING (1 .. 21); 

FICA-RATE : constant PAY == 0.07; 

FED-RATE : constant PAY = = 0.25; 

STATE-RATE: constant PAY == 0.05; 
package PAY-IO is new FIXED-10 (PAY); 

— : Здесь делаются доступными процедуры 

— GET и PUT , выполняюцие ввод-вывод 

— об'ектов типа PAY. 

— См. ниже их использование и формат, 
use PAY-IO; 

begin 

GET(SOC-SEC-NO); 
while S0C_SEC_N0 /= ••999999999" 
loop 

GET(EMP-NAME); 

GET(HOURLY-RATE,5); — Во вводимом 

— числе должна быть десятичная точка. 

GET ( H0URS-W0RKED ,5); — Во вводимом 

— числе должна быть десятичная точка. 

GET ( NO-DEPENDENTS ,2); 

GROSS-RAY := PAY(HOURLY-RATE * HOURS-WORKED); 
— Запомните: умножение дает результат универ- 
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— сального фиксированного типа/ его надо 

— преобразовать к типу PAY . 

if PAY ( NO_DEPENDENTS * 10 ) < GROSS-PAY 
then 

TAX-INCOME := GROSS-PAY - 

PAY ( NO_DEPENDENTS * 10) ; 

else 

TAX-INCONE == 0.00/ 
end if/ 

NET-PAY :» GROSS-PAY-PAY(GROSS-PAY * FICA-RATE) 

- PAY ( TAX-INCOME * FED-RATE ) 

- PAY ( TAX-INCOME * STATE-RATE ) ; 

NEW-LINE; 

PUT(SOC-SEC-NO); 

PUT < EMP-NAME); 

PUT(GROSS-PAY / ? / 2); 

— Этот оператор - одна из версий процедуры GET 

— из пакета PAY -ІО/ где 7 позиций отводится 

— под целую часть и 2 - под дробную. 

PUT(NET-PAY /7/2); 

SKIP-LINE; 

GET(SOC-SEC-NO); 
end loop; 
end PAYROLL ; 


Обратите внимание на то, что для числовых типов разрешены явные преобразова¬ 
ния типов. Преобразование от одного типа к другому будет выполнено, если перед 
выражением, заключенным в скобки, поставить имя требуемого типа. Вот несколько 
примеров преобразования типов с использованием объявлений из программы 
PAYROLL: 


Преобразование 


Результат 


INTEGER (GROSS.PAY) 
FLOAT (21) 

PAY (NO.DEPENDENTS) 


Значение GROSS_PAY округляется до ближайшего 
целого 

Целое число 21 преобразуется к предопределенному 
типу FLOAT 

Целое значение NO_DEPENDENTS преобразуется к 
модельному числу фиксированного типа PAY 


Целые, перечисляемые и действительные типы в совокупности называются скаляр¬ 
ными типами, поскольку значения этих типов не имеют компонент. В следующих 
разделах будут представлены типы, объекты которых состоят из нескольких логичес¬ 
ких частей. Это-регулярные типы и комбинированные типы. 


2.2. РЕГУЛЯРНЫЕ ТИПЫ 

Регулярный тип представляет собой совокупность логически связанных компонент. 
Объекты регулярного типа называются массивами. Каждая компонента принадлежит к 
одному и тому же типу и занимает в массиве единственное в своем роде положение по 
отношению к прочим компонентам. Позиция компоненты задается одним или не¬ 
сколькими индексами. Если есть один индекс, то массив называется одномерным. Если 
же у массива имеются два или более индексов, то.он называется многомерным. В языке 
Ада отсутствует предопределенное ограничение на число индексов у массива. Понятие 
массива иллюстрирует рис. 2.2. На рис. 2.2,а показан одномерный массив типа 
STATE_RATE. На рис. 2.2,6 изображен двумерный массив типа SHIPPING-RATES. 
Эти массивы взяты из программы, приведенной в данном разделе. 
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STATE_RATE_84 


CLOSE—BY 


MED_DISTANCE 


LONG-DISTANCE 



6 


Рис. 2.2. Массивы. 

а-переменная STATE_RATE_84 типа STATE_RATE; б-переменная REGULAR_RATES типа SHIP- 
PING_RATES. 

В языке Ада есть две разновидности регулярных типов: регулярные типы с 
уточненными и с неуточненными границами диапазонов индексов. Для неуточненных 
регуляторных типов эти границы, т. е. начальное и конечное значения каждого индекса, 
не указываются в объявлении типа. Вместо этого границы задаются при объявлениях 
различных объектов (переменных и констант) этого типа. Фактические же значения 
границ могут быть заданы еще позже-во время выполнения программы. 

Для уточненных регулярных типов границы диапазонов индексов должны быть 
известны к моменту объявления объектов (переменных и констант), принадлежащих к 
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этим типам. Как следствие этого, уточненные регулярные переменные (т. е. массивы) 
одного и того же типа имеют одинаковые границы, в то время как неуточненные 
регулярные переменные одинакового типа могут иметь разные границы. 

Границы диапазонов индексов у массивов специфицируются выражениями, резуль¬ 
тат вычисления которых имеет дискретный (т. е. целый или перечисляемый) тип. Если 
все выражения статические, т. е. их значения могут быть вычислены во время трансля¬ 
ции программы, то массив называется статическим. Массив называется динамическим, 
если по крайней мере одна из границ задается динамическим выражением. Динамичес¬ 
ким называется такое выражение, значение которого может быть определено только во 
время выполнения программы. Как уточненные, так и неуточненные регулярные 
переменные могут представлять собой динамические массивы. 

Ниже приводится ряд примеров, разъясняющих введенные понятия. 

2.2.1. Уточненные регулярные типы 

Объявление уточненных регулярных типов имеет вид 

type имя типа is array уточнение_диапазонов_индексов of тищкймпонент; 

Уточнение_дщапазонов_индексов-это заключенная в скобки последовательность диа¬ 
пазонов индексов, разделенных запятыми. Диапазоны должны быть дискретными, т. е. 
их левые и правые границы должны задаваться выражениями целого или пере¬ 
числяемого типа. 

Примеры. Ниже приводятся объявления регулярных типов с уточненными границами и 
объекты этих типов: 

type STATE.RATES is array (1 .. 50) of FLOAT; 

Здесь имя_типа-это STATE_RATES, а уточнение_ддаапазонов_индексов-это (1.. 50), 
определяющее 50 компонент. Каждая компонента имеет тип FLOAT. Диапазон 
изменения единственного индекса лежит в пределах от 1 до 50. 

STATE RATE 84, STATE_RATE_85 : STATE_RATES; 

Здесь переменные STATE_RATE_84 и STATE_RATE_85 имеют тип STATE_RATES, и 
каждая переменная состоит из 50 компонент. 

N: INTEGER; 

type CLASS_STUDENT_ID is array (1 ..N) of INTEGERS; 

SECTIONS, SECTIONS: CLASS_STUDENTJD; 

Здесь SECTION_A и SECTION B - примеры динамических массивов. Остальные мас¬ 
сивы - статические. 

type WAREHOUSE is (CHICAGO, NEW.YORK, FRESNO, BOSTON); 

Здесь объявлен перечисляемый тип, который будет диапазоном изменения индексов 
для регулярного типа LOCATIONS 

type LOCATIONS is array (WAREHOUSE) of FLOAT/ 

CURR-LOCATION/ PREV_LOCATION : LOCATIONS; 
type DISTANCE-CLASS is (CLOSE-BY/ MED-DISTANCE/ 

LONC-DISTANCE); 
type WEIGHT-CLASS is 

(LIGHT, MED-WEIGHT, MED-HEAVY/ HEAVY); 
type PRICES is delta Ѳ.ФѲѲ1 range Ѳ.ѲѲѲ . . 

type SHIPPINGlRATES is array(DISTANCE-CLASS / 

WEIGHT-CLASS ) of PRICES; 
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Здесь регулярный тип SHIPPING_RATES имеет два диапазона изменения индексов, 
которые являются частями уточнения_ 4 щапазонов_индексов. Это-двумерный массив. 
В качестве заключительного примера приведем объявление: 

REGULAR.RATES, PREMIUM_RATES : SHIPPING.RATES; 

Можно обратиться к компоненте любого объекта регулярного типа, если вслед за 
именем объекта поместить заключенное в скобки необходимое значение индекса. Вот 
некоторые примеры. 

STATE_RATE_84 (48) Компонента 48 массива STATE_RATE_84 

имеет тип FLOAT 

CURR_LOCATION (CHICAGO) Компонента CHICAGO массива CURR_LO- 

CATION имеет тип FLOAT 

REGULAR_RATES (CLOSE_BY, Компонента типа PRICES имеет два индекса: 

HEAVY) , индекс GLOSE_BY относится к типу 

DISTANCE_CLASS, индекс HEAVY отно¬ 
сится к типу WEIGHT.CLASS 

Значения индексов могут быть получены с помощью вычисления любого выражения. 
Результат вычисления должен иметь требуемый тип и находиться в заданных пределах. 

Дискретный^циапазон, т. е. множество значений целого или перечисляемого типа, 
может вообще не содержать никаких значений. В этом случае диапазон называется 
пустым, а массив вовсе не имеет компонент. Например, предположим, что величина N 
в одном из предыдущих примеров инициализирована так: 

N: INTEGER := —1; 

Тогда массивы SECTIONLA и SECTION_B будут иметь пустой диапазон. 

Использование массивов будет показано на примере программы SHIP_RATE. Но, 
перед тем как будет приведена программа, введем новый оператор языка Ада, который 
облегчит эффективную работу с массивами. Это-второй вид оператора цикла (loop 
statement), называемый циклом для (for loop). Ранее уже был рассмотрен цикл пока 
(while loop). 

2.2.2. Циклы for 

Общая форма оператора цикла для (foor loop statement) такова: 
for параметр цикла in дискретный диапазон 
loop 

последовател ьность_операторов 
end loop; 

Вместо зарезервированного слова in (в) в операторе цикла for можно употребить 
слова in reverse (в обратном порядке). 

Параметр_цикла - это переменная, тип которой-такой же, как и тип у дискрет- 
ного^диапазона. Поэтому множество допустимых значений параметра_цикла ограни¬ 
чено величинами, указанными в этом диапазоне. Параметр_дикла не следует объяв¬ 
лять. Его значение за пределами оператора цикла не определено. Объявление пара¬ 
метра цикла произойдет автоматически при указании его в операторе цикла. Такой вид 
объявления называется неявным объявлением. Неявные объявления-это исключение из 
общего правила, которое гласит, что все переменные необходимо объявлять в 
декларативной части подпрограммы. 
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Член последовательность_операторов, входящий в состав оператора цикла, вы¬ 
полняется по одному разу для каждого из значений, входящих в дискретный_диапазон 
цикла. При этом значения параметра_цикла из дискретного^диапазона устанавли¬ 
ваются следующим образом: если присутствует только одно зарезервированное слово 
in, то параметр_цикла принимает значения из дискретного^диапазона в порядке 
возрастания, начиная с нижней границы диапазона; если же в оператор цикла входят 
зарезервированные слова in reverse, то параметр цикла будет принимать значения из 
дискретного^диапазона в порядке убывания, начиная с верхней границы диапазона. 
Если диапазон пуст, то последовательность_операторов не выполнится ни разу. 

Как и можно было бы предположить, параметр_цикла нельзя располагать слева от 
символа в операторе присваивания. Его нельзя также изменять каким-либо иным 
способом внутри цикла. Другими словами, параметр_цикла предназначен для обеспе¬ 
чения вычисления цикла при заданных значениях и в заданном порядке. Изменение 
параметра_цикла привело бы к нарушению этих условий. 

Пример. Рассмотрим некоторые примеры циклов for. Вот один из них: 

J : = 0; 

for I in 1 .. 20 
loop 

J = J + I; 
end loop; 

Здесь считается, что J относится к целому типу. Этот цикл выполняет суммирование 
целых чисел от 1 до 20, а результат присваивается переменной J. Поскольку тип 
выражений, задающих границы дискретного диапазона-целый, то и неявно объявля¬ 
емый параметр цикла I также принадлежит к целому типу. 

Другой пример: 
for I in 0 .. -1 
loop 

J:= J * 2; 
end loop; 

Здесь диапазон-пустой 1) , и оператор 
J:= J * 2; 

не выполнится ни разу. 

Заключительный пример: 

GET (К,3); 

J : = 0; 

for I in -К ** 3 .. К ** 2 
loop 

J = l'** 2 + J/2; 
end loop; 

Предполагается, что К-переменная целого типа. Заметьте, что при отрицательном К 
диапазон будет пустым. 

Как упоминалось ранее, можно писать программы, употребляя только циклы 
while. В случае программы SHIP_RATE, текст которой дан ниже, применение циклов 
for значительно улучшает ее читабельность. Вообще говоря, циклы for хорошо 
подходят для последовательной обработки компонент массива, так как в этом случае 


11 Диапазон будет пустым, если верхняя его граница имеет меньшее значение, чем ниж¬ 
няя- Прим, перев. 
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для каждой из компонент выполняются аналогичные операторы. Параметр цикла 
обеспечивает удобный и хорошо контролируемый способ индексации нужных компо¬ 
нент и действий с ними. 

2.2.3. Программа, в которой употребляются массивы 

В нижеследующей программе вначале строится таблица тарифов на доставку 
грузов. Она заполняется значениями из первых трех строк входного файла. Остальные 
строки файла содержат информацию об отправляемых грузах. В таблице - три строки и 
четыре столбца. Строки таблицы соответствуют трем классам расстояния, а столбцы - 
четырем классам веса груза. Каждая из первых трех строк входного файла содержит по 
четыре действительных числа, представляющих собой тарифы на оплату доставки 
фунта груза. Таким образом, всего может быть до 12 различных категорий грузов. В 
остальных строках файла размещается информация о номере позиции груза, о его весе 
и о расстоянии, на которое его следует доставить. Признаком конца данных служит 
строка, в которой номер позиции груза равен 9999999. Каждое входное число занимает 
семь позиций строки. Во входном файле насчитывается не менее трех строк. Програм¬ 
ма должна вывести стоимость доставки для каждой представленной позиции от¬ 
правляемого груза. 


Программа SHIP RATE • 

with TEXT- 10/ use TEXT-IO; 
procedure SHIP-RATE is 

package INT-IO is new INTEGER-ICK INTEGER); 
use INT-IO; 

type ALLOWED—WEIGHT is digits 10 range 0.00 .. 

7000.00; 

— Следует проверить/ какое макс, количество 

— цифр здесь допустимо для данной версии языка, 
type ALLOWED-DISTANCE is digits 10 range Ѳ.Ѳ0 .. 

8000.00; 

— Здесь об'явлены два плавающих типа/ для к-рых 

— заданы диапазон значений и кол-во цифр НО), 
package DISTANCE-10 is new 

FLOAT-I0(ALLOWED-DISTANCE); 

use DISTANCE_IO; 

package WEIGHT-IO is new FLOAT—10(ALLOWED—WEIGHT); 
use WEIGHT_I0; 

— Здесь обеспечивается доступ к пакетам/ нужным 

— для чтения и записи некоторых плавающих типов, 
type DISTANCE-CLASS is ( CLOSE-BY / MED-DISTANCE/ 

LONG-DISTANCE); 

— Это - об'явление перечисляемого типа. Он 

— используется ниже для индексации массивов. 
CURR-DIST-CLASS = DISTANCE-CLASS ; 

— Это - об'явление переменной/ принадлежащей 

— к перечисляемому типу DISTANCE-CLASS, 

type WEIGHT-CLASS is 

( LIGHT/ MED-WEIGHT/ MED-HEAVY/ HEAVY); 
CURR-WEIGHT-CLASS : WEIGHT-CLASS; 
type DIST-CATEGORIES is array ( DISTANCE-CLASS ) 
of ALLOWED-DISTANCE; 

— Это - об'явление одномерного массива/ индек- 

— сация которого выполняется с помощью 
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— перечисляемого типа DISTANCE-CLASS. 

ACT—DIST_LIM = constant DIST-CATEGORIES == 

( 100.00/ 400.00, 80Ѳ0.00 ) ; 

— Это об'явление означает, что 

— ACT—DIST—LI М( CLOSE-BY) равно 100.00, ... , 

-- ACT_DIST_LIM(LONG-DISTANCE) равно 8000.00. 

— Присваивание числовых значений массиву 

— можно выполнить, если задать в скобках 

— список значений компонент, называемый агре- 

— гатом. Значения агрегатов можно присваивать 

— как переменным, так и константам, например 

— ACT-DIM-LIST. Другие возможные способы 

— определения агрегатов обсуждаются в гл. 4. 
type WEIGHT-ARRAY is array ( WEIGHT-CLASS ) of 

ALLOWED-WEIGHT; 

ACT-WEIGHT-LIM : constant WEIGHT-ARRAY := 

< 10.00, 20.00, 40.00, 50OO.OO ) ; 

— Об'явлен массив-константа типа WEIGHT-ARRAY, 

— определяющий верхние границы категорий веса. 

— Здесь опять употреблен агрегат. 

type PRICES is delta 0.0001 range 0.000 .. 

5000.00; 

— Об'явлен фиксированный тип. 

package PRICES-IO is new FIXED-IO(PRICES); 
use PRICES-IO; 

— Сделан доступным пакет, необходимый для ввода- 

— вывода величин фиксированного типа PRICES, 
type SHIPPING-RATES is array ( DISTANGE-CLASS, 

WEIGHT-CLASS ) of PRICES; 

— Этот тип определяет двумерный массив с тремя 

— строками и четырьмя столбцами, индексируемый 

— с помоцью об'ектов перечисляемых типов. 
CURR-RATES : SHIPPING-RATES ; 

1ТЕМ -NO : INTEGER ; 

ITEM-DISTANCE = ALLOWED-DISTANCE ; 

I ТЕМ- WEIGHT = ALLOWED-WEIGHT ; 

ITEM-COST : PRICES ; 
begin 

for JUNK-DIST in DISTANCE-CLASS 

— Эквивалентная форма этой строки: 

for JUNK-DIST in DISTANCE-CLASS'FIRST 
DISTANCE-CLASS'LAST 

- ИЛИ : 

for JUNK-DIST in CLOSE-BY .. 

LONG-DISTANCE 

— которая - не такая общая (почему ?) 
loop 

for JUNK-WEIGHT in WEIGHT-CLASS 
loop 

GET(CURR_RATEStJUNK_DIST,JUNK-WEIGHT), 7); 
end loop; 

SKIP-LINE; 
end loop; 

— Таблица только что проинициализирована . Заметь- 

— те, что переменные JUNK-DIST и JUNK-WEIGHT не 

— были явно об'явлены как об'екты типов 

— DISTANCE-CLASS и WEIGHT-CLASS соответственно. 
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— Вспомните/ что параметры цикла (в данном случае 

— - JUNK-DIST и JUNK-WEIGHT ) об'являются неявно 

— и принадлежат к тому же типу/ что и границы 

— диапазона значений переменной цикла. 

GET < ITEM-NO/ 7); 

while ITEM-NO /= 9999999 
loop 

GET <I ТЕМ- WEIGHT,7); 

— Используется пакет для операций ввода-вывода 
с плавающей точкой - WEIGHT- 10. 

GET < ITEM-DISTANCE / 7); 

— Используется пакет для операций ввода-вывода 
— с плавающей точкой - DISTANCE-10 . 

SKIP-LINE; 

for JUNK-DIST in reverse DISTANCE-CLASS 
loop 

if ITEM-DISTANCE < ACT-DIST-HM (JUNK-DIST ) 
then 

CURR-DIST-CLASS >- JUNK-DIST; 
end if; 
end loop; 

for JUNK_WEIGHT in reverse WEIGHT-CLASS 
loop 

if ITEM-WEIGHT < ACT-WEIGHT-LIM (JUNK-WEIGHT) 
then 

CURR—WEIGHT—CLASS == JUNK_WEIGHT; 
end if; 
end loop; 

ITEM-COST .- = 

PRICES(CURR-RATES(CURR-DIST-CLASS / 

CURR-WEIGHT-CLASS ) 

* PRICES ( ITEM-WEIGHT) ); 

NEW-LINE; 

PUT(ITEM-COST /7,2); 

SKIP-LINE; 

GET(ITEM-NO); 
end loop; 
end SHIP-RATE; 


В следующей программе демонстрируется применение динамических массивов. 
Программа, названная GRADES, выводит оценки за контрольную работу, которая 
выполняется студентами путем выбора номеров ответов из представленной сово¬ 
купности вариантов возможных ответов. Первая строка входного файла содержит 
целое число в интервале от 20 до 50, равное количеству вопросов в контрольной работе. 
В следующей строке размещаются ключи ответов. 

Например, если в работе 34 вопроса, то во второй строке задается последователь¬ 
ность из 34 правильных номеров вариантов ответов. Каждый номер варианта от¬ 
вета-это цифра от 1 до 5. Пробелы между цифрами не ставятся. Каждая из остальных 
строк входного файла содержит наборы ответов студентов. 

Личный номер (ID) студента занимает 10 позиций, а сами ответы располагаются с 
одиннадцатой позиции. Программа должна выводить количество правильных ответов 
для каждого студента. Признаком конца потока входных данных служит указание в 
качестве личного номера студента числа 9999999999. 
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Программа GRADES 

with TEXT_10; use TEXT-IO; 
procedure GRADES is 

package INT.IO is new INTEGER-10<INTEGER); 
use INT-IO; 

type CHOICES is range 1 .. 5; 

type POSSIBLE-QUESTIONS is range 1 .. 50; 

— CHOICES и POSSIBLE-QUESTIONS - целые типы, 
package CHO-IO is new INTEGER_IO<CHOICES); 
use CHO-IO; 

package POSS-IO is new 

INTEGER-10 < POSSIBLE-QUESTIONS); 

use POSS-IO; 

NO_QUESTIONS : POSSIBLE-QUESTIONS ==50; 
type ANSWERS is array ( 1 .. NO-QUESTIONS ) of 
CHOICES; 

KEY-ANSWERS, STUDENT-ANSWERS = ANSWERS ; 
GOOD-ANSWERS = INTEGER ; 

STUDENT-ID = STRING ( 1 .. 10); 
begin 

GET (NO_QUESTIONS); 

— Здесь есть два динамических массива - 

-- KEY-ANSWERS и STUDENT-ANSWERS. Количество 

— элементов в них задается во время выполне- 

— ния программы, в данном случае после 

— считывания числа вопросов. Здесь требуется 

— пакет P0SS-I0. 

SKIP-LINE; 

for I in 1 .. N0_QUESTI0NS 
loop 

GET ( KEY-ANSWERS (I), 1); 

— Здесь требуется пакет CHO-IO. 
end loop; 

SKIP-LINE; 

GET ( STUDENT-ID ); 
while STUDENT-ID /= "9999999999" 
loop 

GOOD-ANSWERS == Ѳ; 
for J in 1 .. N0_QUESTI0NS 
loop 

GET ( STUDENT_ANSWERS(J), 1); 
if STUDENT-ANSWERS(J) = KEY-ANSWERS (J) 
then 

GOOD-ANSWERS == GOOD-ANSWERS + 1 ; 
end if; 
end loop; 

NEW-LINE; 

PUT ( “ The number of good answers is “ ); 

PUT < GOOD-ANSWERS, 5); 

PUT ( » for the id ">; 

PUT ( STUDENT-ID ); 

SKIP-LINE; 

GET ( STUDENT-ID ) ; 
end loop; 
end GRADES; 
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2.2.4. Регулярные типы с неуточненными границами диапазонов 
индексов 


Неуточненные регулярные типы объявляются по следующей схеме: 
type имя_типа is array (один_или_болѳѳ_индѳксов) of тип_компоненты; 

Часть «один_или_более_индексов»-это последовательность членов вида: 
обозначение_типа range < > 

отделенных друг от друга запятыми. Обозначения_типа-это либо имена типов, либо 
имена подтипов. (О подтипах будет рассказано далее в этой главе.) 

Вот некоторые примеры: 

type MATRIX is array (INTEGER range < >, INTEGER range < >) of FLOAT; 
type VECTOR is array (INTEGER range < >) of FLOAT; 

В качестве объявления предопределенного типа STRING (Строковый) исполь¬ 
зуется следующая конструкция: 

type STRING is array (NATURAL range < >) of CHARACTER; 
где NATURAL (Натуральный)-это предопределенный тип, к которому относятся 
целые положительные числовые значения. Пара символов < > называется ромбиком и 
обозначает неуточненный диапазон значений индексов для регулярного типа. 

Границы индексов у неуточненных массивов следует указывать при объявлении 
этих объектов. Например: 

Z: MATRIX (1 .. (N — 1 )/2, N .. N + 10); 

Y: MATRIX (-3 .. 3, -2 .. 2); 

YY: MATRIX (0 .. 7, -1 .. 3); 

Заметьте, что границы индексов у массивов Z и Y в этих объявлениях разные, а типы 
массивов одинаковые. Вот еще примеры: 

X: STRING (5 .. L ** 2); 

V: VECTOR (-7 .. 1); 

VV:VECTOR (-7 .. 2); 

Неуточненные регулярные типы -это весьма гибкое средство, полезное при разработке 
подпрограмм. Более подробно эти массивы будут описаны в гл. 5. 

2.2.5. Атрибуты массивов 


Далее приведем список некоторых атрибутов, которые можно применять сов¬ 
местно с объектами произвольного регулярного типа А. Если А-уточненный регуляр¬ 
ный тип, то эти атрибуты будут применимы также и к нему. Данные атрибуты нельзы 
употреблять совместно с названиями неуточненных регулярных типов, однако для 
объектов, принадлежащими к таким типам, эти атрибуты разрешается использовать. 


Атрибут 

A'FIRST 

(А'первый) 


A'LAST 

(А'последний) 


Описание 

Дает нижнюю границу диапазона для первого индекса. Для любого из 
массивов, принадлежащих к типу SHIPPING-RATES (см. програм¬ 
му SHIP_RATE), значением SHIPPING-RATESFIRST является 
CLOSE-BY. Тот же результат получится, если вместо имени данного 
типа указать имя переменной, относящейся к нему: CURR_RATES'FIRST 
Дает верхнюю границу диапазона для первого индекса. Например, 
SHIPPING_RATES'LAST (см. ту же программу) возвращает резуль¬ 
тат LONG-DISTANCE 
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Глава 2 


A'LENGTH 

(А'длина) 

A'RANGE 
(А' диапазон) 


Дает количество значений, которое может принимать первый индекс, 
т. е. размер массива по этому измерению. Для SHIPPING_RATES' 
LENGTH будет получено число 3 

Дает все значения первого индекса, лежащие в диапазоне A'FIRST .. 
A'LAST Результатом SHIPPING RATES'RANGE будут значения из 
диапазона CLOSE BY .. LONG DISTANCE 


В многомерных массивах атрибуты можно запросить для любого из индексов. В 
приведенных ниже атрибутах N обозначает статическое выражение целого типа. 


Атрибут 

A'FIRST(N) 

A'LAST(N) 

A'LENGTH(N) 

A'RANGE(N) 


Описание 

Дает нижнюю границу диапазона N-ro индекса для регулярного типа 
А. Например, SHIPPING_RATES'FIRST(2) даст результат LIGHT. 
Атрибуты A'FIRST и A'FIRST(1) идентичны 
Дает верхнюю границу диапазона N-ro индекса для регулярного типа 
А. Например, результатом запроса атрибута SHIPPING RATES' 
LAST(2) будет HEAVY. Атрибуты A'LAST и A'LAST(1) идентичны 
Дает размер массива по N -му измерению. Например, 
SHIPPING_RATES'LENGTH(2) равно 4. Атрибуты A'LENGTH( 1) и 
A'LENGTH идентичны 

Дает диапазон значений A'FIRST(N) .. A'LAST(N), т.е. фактически 
подтип. Объяснение будет приведено далее в этой главе. Например, 
в результате запроса атрибута SHIPPING_RATES' RANGE(2) по¬ 
лучится диапазон LIGHT .. HEAVY. Атрибуты A'RANGE(1) и 
A'RANGE идентичны 


2.3. ОПЕРАЦИИ С РЕГУЛЯРНЫМИ ТИПАМИ 
2.3.1. Равенство и неравенство 

Операции проверки на равенство и неравенство определены для каждых двух 
объектов, принадлежащих к любому из типов, с которыми мы познакомились в гл. Іи 
знакомимся в этой главе. Для массивов равенство означает, что все их согласующиеся 
компоненты равны в соответствии с правилами равенства, определенными для того 
типа, к которому эти компоненты принадлежат. Согласование компонент происходит 
следующим образом 1 ’. При сравнении массивов сначала ставятся в соответствие друг 
другу нижние границы диапазонов индексов, а затем-последовательно идущие 
индексные позиции обоих массивов. Если в одном из массивов отсутствует необ¬ 
ходимая для согласования компонента, а также если согласующиеся компоненты 
имеют разные значения, то массивы неравны. Если два массива относятся к одному и 
тому же типу и компоненты их согласуются, то значение одного массива можно 
присваивать другому массиву. 

Примеры. В следующих примерах используются переменные V и ѴѴ типа VECTOR, а 
также Y и YY типа MATRIX (см. предыдущий раздел). 

V := (1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1,0); 

W :*= (1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0); 

Здесь V и W принадлежат к одному и тому же типу, но их компоненты не согласуются, 
так как в массиве W больше компонент, чем в V. Поэтому массивы V и W неравны, а 


Очевидно, что для «согласованности» компонент необходимо наличие одинакового числа 
измерений у массивов и одинакового количества компонент по соответствующим измере¬ 
ниям.-Ярим. перев. 
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присваивание невозможно. 

Y := ((-2.0. -2.0, -2.0, -2.0, -2.0, -2.0, -2.0), 

(-2.0, -2.0, -2.0, -2.0, -2.0, -2.0, -2.0), 

(-2.0, -2.0, -2.0, -2.0, -2.0, -2.0, -2.0), 

(-2.0, -2.0, -2.0, -2.0, -2.0, -2.0, -2.0), 

(-2.0, -2.0, -2.0, -2.0, -2.0, -2.0, -2.0)); 

YY := Y; 

У массивов YY и Y, принадлежащих к одному и тому же типу, компоненты 
согласуются, и поэтому присваивание разрешается. После присваивания оба массива 
стали равными. Если затем написать оператор присваивания 
- YY(0, 3) :=0.0; 

то Y и YY станут неравны. Обратите внимание на то, как массивы инициализируются с 
помощью агрегатов. 

2.3.2. Другие операции отношения 

Для регулярных типов допускается и ряд других операций отношения. Они 
разрешены только для одномерных массивов, компоненты которых принадлежат к 
дискретным (т.е. к перечисляемым или целым) типам. В указанном случае можно 
употреблять операции <, <=, >, >=. Порядок выполнения сравнения при ис¬ 
пользовании этих операций подчиняется следующему лексикографическому правилу; 
первая компонента массива имеет наивысший приоритет, она сравнивается первой, 
затем сравнивается вторая компонента и т.д. Итак, если два одномерных массива 
принадлежат к одному и тому же типу, а их компоненты относятся к дискретному типу, 
то при сравнении этих массивов вначале будут сравниваться их первые компоненты. 
Если они неравны, то большим массивом будет тот, у которого первая компонента 
больше. Если же первые компоненты равны, то будут сравниваться вторые ком¬ 
поненты и т.д. до тех пор, пока не будет принято решение. Пустой массив не имеет 
компонент вообще, и поэтому он заведомо меньше массива, имеющего по крайней 
мере хотя бы одну компоненту. 

Вот некоторые примеры; 

type POSSIBLE_RANGE is range -1000 .. INTEGER'LAST; 
type DAY is (MON, TUE, WED, THU, FRI, SAT, SUN); 
type EVENTS is array (POSSIBLE_RANGE range <>) of DAY; 

LAST_5_IN_NY : EVENTS (1 . 5) := (MON, TUE, TUE, SAT, FRI); 

LAST_3_IN_LA : EVENTS (8 .. 10) := (MON, MON, SAT); 

Пример. Для приведенных выше объявлений можно записать отношение: 
LAST_5_IN_NY < LAST_3_IN_LA 

Оно даст логическое значение FALSE, так как вторая компонента массива 
LAST_5_IN_NY, т. е. компонента LAST_5_IN_NY(2), равная TUE, больше, чем вторая 
компонента массива LAST_3_IN_LA, т.е. компонента LAST_3_IN_LA(9), которая 
равна MON. 

Однако если написать 
LAST_3JN_LA(9) ;= TUE; 

то отношение даст результат TRUE, так как первые две компоненты рассматриваемых 
переменных регулярного типа равны, a LAST_5JN_NY(3), равная TUE, меньше, чем 
LAST_3_IN_L А( 10), равная SAT. 
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2.3.3. Сцепление 

Для одномерных неуточненных массивов существует еще одна операция. Она 
называется сцеплением (catenation) и обозначается символом «&». Пусть массив имеет 
тип Т, а его компоненты-тип С, и действует следующее объявление: 
type Т is array (INDEX range <>) of С; 

Результатом операции сцепления будет массив, индекс первой компоненты которого 
всегда равен INDEX'FIRST. 

Оба операнда могут относиться к типу Т, или один из них может быть типа С, а 
другой-типа Т. Результирующий массив содержит компоненты первого операнда, за 
которым располагаются компоненты второго операнда. Если один из операндов 
принадлежит к типу С, то он рассматривается как массив с одной компонентой. 

Пример. Будет правильной строка 
LAST_5JN_NY & LAST_3JN_LA 

В результате получится одномерный массив, первая компонента которого имеет индекс 
—1000. Всего в нем будет 8 компонент. Значения этих компонент можно представить в 
виде агрегата 

(MONJUE,TUE,SAT,FRI,MON,MON,SAT) 

Можно записать 

FRI & LASTJ5JN_NY 
что даст агрегат 

(FRI,MON,TUE,TUE,SAT,FRI) 

Индекс первой компоненты будет равен —1000. 

2.3.4. Строки 

Как упоминалось в предыдущем разделе, тип STRING (Строковый) определяется 
как одномерный неуточненный регулярный тип: 

type STRING is array (NATURAL range <>) of CHARACTER; 

Границы индексов задаются во время объявления объектов этого типа. 

Вот примеры объявлений строк: 

FIELD1 : STRING (I .. I +7); 

FIELD2 : STRING (I -7 .. I -1); 

FIELD3 : STRING (20 .. 27) := "NEW_YORK"; 

FIELD4 : STRING (40 .. 49); 

Здесь FIELD3- строковая переменная, получающая начальное значение при объ¬ 
явлении. Обратите внимание на то, что границы диапазонов индексов у строк FIELD 1 
и FIELD2 различны, хотя они и принадлежат к одному регулярному типу. Вспомните, 
что такая ситуация невозможна для уточненных регулярных типов. Дополнительное 
ограничение для строк заключается в том, что, когда границы диапазона индексов 
получают некоторые фактические значения (либо при трансляции программы, либо во 
время ее выполнения), эти фактические значения должны быть положительными 
целыми числами. 

Все атрибуты массивов применимы и к объектам типа STRING, т. е. к строкам, 
несмотря на то что они не определены для самого типа STRING, так как тип 
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STRING -это неуточненный регулярный тип. Так, FIELD2'LENGTH даст в результате 
7, a FIELD3'FIRSTaacT 20. Поскольку компоненты для типа STRING относятся к 
символьному типу, то можно записывать операторы присваивания вида: 

FIELD3(21 ) := 'G'; 

Эквивалентным способом инициализации переменной FIELD3 будет: 

FIELD3 : STRING(20 .. 27) : = ('N'/E'/W','-'/Y'/0'/R'/K'); 

Операции отношения <, <=, >= и >, а также операция сцепления & вполне 
допустимы для объектов типа STRING, т. е. для строк. 

Пример. Если 

FIELD4 := "CALIFORNIA"; 

то отношение FIELD4 < FIELD3 даст логическое значение TRUE. Результатом 
выполнения операции FIELD3& FIELD4 будет строка длиной в 18 символов, индекс 
первой компоненты которой равен 1. 

2.3.5. Вырезки 

Для одномерных массивов в языке Ада разрешается задавать особое обозначение 
для последовательности следующих друг за другом компонент, называемых вырезкой 
из массива. К ней можно обращаться. Вырезка-это фактически часть исходного 
одномерного массива. 

Пример. Можно обозначить вырезку следующим образом: 

Ѵ(— 5 .. —2) V-переменная, объявленная ранее как V : VECTOR (—7 .. 1) 

V(LL .. RR) Это обозначение будет корректным, если LL и RR- целые числа, 

лежащие в требуемом диапазоне (в данном случае от —7 до 1) 

Вырезка Ѵ( — 5 .. —2) содержит четыре компоненты. Первая из них-это Ѵ( — 5 .. —2) 
(—5). Она равна Ѵ(— 5). Четвертая компонента вырезки-это Ѵ(— 5 .. —2) (—2). Она 
равна Ѵ(— 2). 

Разрешается присваивание вырезок, что служит полезным средством для ком¬ 
пактной записи эквивалентной последовательности операторов присваивания. На¬ 
пример, правильной будет строка 
Ѵ(— 7 .. -4) := Ѵ( — 5 .. -2); 

Этот оператор означает, что вырезка Ѵ( — 7 .. —4), в которую входят четыре 
компоненты с индексами от —7 до —4, примет значение вырезки Ѵ(— 5 .. —2), в 
которую в свою очередь входят 4 компоненты с индексами от —5 до —2. 

Однако при расшифровке смысла этого оператора следует проявить осторожность. 
«Подводный камень» здесь такой. Вначале выделяются компоненты вырезки Ѵ(— 5 .. 
— 2) u , и только потом их значения присваиваются соответствующим компонентам 
вырезки Ѵ(— 7 .. —4). Поэтому пытаться многократно дублировать значение первой по 
порядку компоненты вырезки, т. е. повторять присваивание ее значения другим 
компонентам массива V с помощью оператора 
Ѵ(-6 .. 1) := Ѵ(— 7 .. О)-, 

было бы неправильным. Здесь не произойдет дублирования, так как значение первой 
компоненты вырезки Ѵ( — 7 .. 0), т. е. Ѵ( — 7), присваивается только компоненте Ѵ(— 6). 


11 Они записываются в некоторую промежуточную область памяти.- Прим, перев. 
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Затем вторая компонента вырезки Ѵ(— 7 .. 0), равная тому значению компоненты 
Ѵ( — 6), которое имелось до начала выполнения оператора присваивания (а не текущее, 
уже измененное, значение Ѵ( — 6), будет помещена в Ѵ( — 5) и т.д. Если Ѵ( — 7 .. 0) было 
равно NEW_YORK, то после выполнения оператора присваивания значением Ѵ( — 7 .. 
1) станет NNEW.YORK, а вовсе не NNNNNNNNN. 

2.4. КОМБИНИРОВАННЫЕ ТИПЫ 

Массивы представляют собой совокупности компонент, относящихся к одному и 
тому же типу. Объекты комбинированного типа, которые будем называть струк¬ 
турами-ло совокупности поименованных компонент, принадлежащих к различным 
типам. Объявление комбинированного типа осуществляется в соответствии со схемой: 

type имя_комбинированного_типа is 

record 

список компонент 
end record; 

Список_компонент в простейшей его форме-это список объявлений. Если комбини¬ 
рованный тип не имеет компонент, то на месте этого списка ставится зарезерви¬ 
рованное слово null (пусто). Объявления комбинированных типов могут также со¬ 
держать дискриминантную и/или вариантную части. Структуры с дискриминантами 
будут рассмотрены далее в этом разделе, а структуры с вариантами-в гл. 4. 

2.4.1. Особенности комбинированных типов 

Вот пример объявления комбинированного типа: 

type EMPLOYEE is 
record 

FIRST-NAME = STRING (1 .. 20); 

LAST-NAME : STRING (1 .. 20); 

HOME-ADDRESS : STRING (1 .. 30); 

SOC-SEC-NO = STRING Cl .. 9); 

HOURLY-RATE : FLOAT ; 

H0URS-W0RKED . INTEGER range 1 .. 168; 
end record; 


Здесь имя_комбинированного_типа-это EMPLOYEE, а компоненты-это переменные, 
перечисленные после зарезервированного слова record, начиная с FIRST_NAME и 
кончая HOURS_WORKED. 

Вот еще объявления комбинированных типов: 

type DAY is (MON/TUE/WED/THU/FRI/SAT/SUN); 
type DAY-NO is 1 .. 31; 

type MONTH is (JANUARY/FEBRUARY/MARCH,APRIL/MAY, 

JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER, 

NOVEMBER,DECEMBER); 
type YEAR is 1900 .. 2030 ; 
type DATE is 
record 

WEEK-DAY :DAY; 

MONTH-NAME:MONTH; 

DAY-NO =DAY; 

YEAR-NO :YEAR; 

end record; 
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А вот-объявления структур, т.е. объектов комбинированного типа: 
CURR.EMPLOYEE, PREV.EMPLOYEE : EMPLOYEE; 

ACTUAL_DATE, SETTLEMENT_DATE : DATE; 

Обратиться к компоненте структуры можно с помощью селектора (selected - 
component notation). При этом вначале ставится имя объекта комбинированного типа 
(префикс), а затем точка и имя компоненты (селектор). 

Пример. Строка 

ACTUAL_DATE.WEEIC.DAY 

означает обращение к компоненте WEEK_DAY переменной ACTUAL_DATE, при¬ 
надлежащей к комбинированному типу DATE. Сама компонента относится к типу 
DAY. Строка 

CURR_EMPLOYEE.HOME_ADDRESS 

позволяет выбрать компоненту HOME^ADDRESS переменной CURR_EMPLOYEE 
типа EMPLOYEE. 

Для структур, как и для массивов, можно строить агрегаты, которые позволяют 
выполнять присваивание некоторого значения объектам комбинированного типа. Здесь 
имеются в виду так называемые позиционные агрегаты-структуры. Позиционный 
агрегат-структура состоит из заключенного в скобки полного набора значений, 
разделенных запятыми. Например, можно сделать следующее объявление: 

STARTING.DATE : constant DATE := (MON,AUGUST,20,1984); 

Здесь объявлена константа STARTINGJ3ATE, ее значением является агрегат 
(MON,AUGUST, 20,1984). 

Объекты одного и того же комбинированного типа, не имеющего ни дискри¬ 
минантной, ни вариантной частей, имеют идентичную совокупность названий ком¬ 
понент. 

Две структуры одного типа можно сравнивать на равенство или неравенство. Две 
структуры считаются равными, если все одноименные компоненты, входящие в них, 
равны. В противном случае структуры неравны. Однако две пустые структуры одного и 
того же типа всегда считаются равными. Для комбинированных типов операции 
отношения <, <=, > = и > не определены. 

Для структур одного и того же типа разрешено присваивание. Оно означает, что 
значение каждой компоненты структуры, расположенной справа от символа при¬ 
сваивания, замещает значение одноименной компоненты структуры, расположенной 
слева. Например, оператор 

ACTUAL.DATE := SETTLEMENT_DATE; 
является корректным оператором присваивания. Он означает, что 

ACTUAL-DATE . WEEK-DAY : «SETTLEMENT-DATE . WEEK.DAY; 

ACTUAL-DATE.MONTH-NAME :«SETTLEMENT-DATE.MONTH-NAME; 

ACTUAL-DATE.DAY-NO = «SETTLEMENT-DATE.DAY-NO; 

ACTUAL-DATE.YEAR-NO :«SETTLEMENT-DATE.YEAR-NO; 


Компоненты, задаваемые в объявлении комбинированного типа, могут в свою очередь 
принадлежать к комбинированному или регулярному типу. Например, можно объя¬ 
вить такой комбинированный тип: 
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type MORE_INFO is 
record 

NEW-EMPLOYEE : EMPLOYEE; 

DATE-HIRED = DATE; 
end record; 

Тогда при наличии объявления переменной 
EMPL : MOREJNFO; 

конструкция EMPL .. DATE_HIRED .. DAY_NO означает выборку компоненты 
DAY_NO структуры DATE_HIRED, которая в свою очередь служит компонентой 
структуры-переменной EMPL типа MOREJNFO. В языке Ада отсутствуют пред¬ 
определенные комбинированные типы. 

В данном разделе мы не будем обсуждать атрибуты, применимые к комби¬ 
нированным типам. Отметим только, что существуют атрибуты, которые выраба¬ 
тывают значения относительных смещений компонент, адресов первого и последнего 
бита компоненты и некоторые другие, машинно-зависимые, атрибуты. 

2.4.2. Программа, в которой используются 
комбинированные типы 

В программе, представленной ниже, применяются комбинированные типы. Про¬ 
грамма выводит имя служащего, принятого на работу последним. Входные данные 
программы размещаются в строках, каждая из которых имеет следующие поля: 
LAST_NAME (фамилия)-поз. 1-20; YEAR NO (год)-поз. 21-22; MONTFLNO 
(месяц)-поз. 23-24; DAY_NO (число)-поз. 25-26. Последние три поля содержат дату 
приема на работу. Признаком конца потока входных данных служит строка, в поле 
LAST_NAME которой записано: 12345678901234567890. 

Программа LAST-HIRED 

with TEXT-I О ; use TEXT-IO; 
procedure LAST-HIRED Is 
type DATE is 
record 

YEAR-NO : INTEGER range 50 .. 99; 

MONTH-NO: INTEGER range 1 .. 12; 

DAY-NO : INTEGER range 1 .. 31; 
end record ; 
type EMPLOYEE is 
record' 

LAST-NAME : STRING!1 .. 2Ѳ) ; 

HIRING_DATE: DATE; 
end record; 

CURR-EMPL / LAST-EMPL = EMPLOYEE ; 
package INT-IO Is new INTEGER-IO!INTEGER); 
use INT-IO; 
begin 

LAST-EMPL :=<"dUST AN EARLY DATE "/(50/1/1)); 

— Здесь выполняется инициализация самой ранней 
— датой. 

GET < CURR-EMPL . LAST-NAME ); 
while CURR-EMPL.LAST-NAME /- 

"12345678901234567890- 

loop 

GET < CURR-EMPL.HIRING-DATE.YEAR-NO /2 ); 
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GET ( CURR-EMPL .Н IRING-DATE . MQNTH-NO / 2); 

GET < CURR-EMPL .Н IRING-DATE . DAY-NO , 2); 
if CURR-EMPL.HIRING-DATE.YEAR-NO > 

LAST-EMPL.HIRING_DATE.YEAR-NO О r 

CURR-EMPL.HIRING-DATE.YEAR-NO 
LAST-EMPL.HIRING-DATE.YEAR-NO and 

< CURR-EMPL.HIRING-DATE.MONTH-NO > 

LAST-EMPL.HIRING-DATE.MONTH-NO о r 

CURR-EMPL.HIRING-DATE.MONTH-NO 
LAST-EMPL.HIRING_DATE.MONTH-NO and 

CURR-EMPL.HIRING-DATE.DAY-NO 
LAST-EMPL.HIRING-DATE.DAY-NO ) 
then 

LAST-EMPL := CURR-EMPL ; 
end if/ 

SKIP-LINE; 

GET < CURR-EMPL.LAST-NAME); 
end loop; 

NEW-LINE; PUT!" The last hired is 
PUT(LAST-EMPL.LAST-NAME); 

end LAST-HIRED; 

На рис. 2.3 показаны значения объектов, объявленных в программе LAST_HIRED в 
момент времени после считывания последней строки данных. Тестовые данные при¬ 
ведены на том же рисунке. 

2.4.3. Программа, демонстрирующая использование 
введенных понятий 

Рассмотрим еще одну программу на Аде, в которой используются многие из 
понятий, введенных в первых дцух главах. В частности, в ней употребляются комби¬ 
нированные типы. 

В каждой строке входных данных содержатся сведения о лицах, работающих по 
контракту. Формат данных таков: 


Позиции Данные 

1-9 Личный номер служащего 

10-30 Фамилия служащего 

31-36 Дата начала работы в формате ГГММДД, например 840431 

37-42 Дата конца контракта в формате ГГММДД 

43-48 Дневной заработок (в долларах и центах) 


Входные данные 
STEVEN К.. KNIGHT 820317 
В. В. HANSEN 820425 

LOU HARRIS 820901 

12345678901234567890 

Значения объектов 
CURR_EMPL 


LAST_EMPL 


CURR_EMPL.LAST-NAME CURR-EMPL.HIRING—DATE 
Г Lou Harris I 820901 ~~ 


LAST_EMPL.LAST-NAME LAST_EMPL.HIRING-DATE 
I STEVEN K. KNIGHT | 820317 


Рис. 2.3. Входные данные и значения объектов для программы LAST_HIRED. 
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Служащим, работающим по контракту, начисляется некоторая ежедневная заработная 
плата. За работу по субботам оплата удваивается, а за работу в воскресенье 
утраивается. 

Программа должна для каждого служащего выводить его фамилию, личный 
номер, количество отработанных дней, причитающуюся сумму заработка и дату 
выдачи заработной платы, которая производится через пять дней после окончания 
работы. Дата выдачи зарплаты имеет формат: 

день недели, месяц число, год 

Например, может быть такая дата: Tuesday, August 21, 1984 (21 августа 1984 г., 
вторник). В последней строке входных данных указывается личный номер, равный 
999999999. Программа проверяет правильность каждой даты. Например, недопустимо 
31-е число в апреле. 


Программа DATE_CONVERSION 


with TEXT-IO; use TEXT-IO; 
procedure DATE-CONVERSION is 

type DAY is (MONDAY,TUESDAY/WEDNESDAY,THURSDAY, 
FRIDAY,SATURDAY,SUNDAY); 


type DAY-INT is range 1 .. 31; 
type JULIAN-DAYS is range 1 .. 366 ; 
type MONTH is (JANUARY,FEBRUARY,MARCH,APRIL,MAY, 
JUNE,JULY,AUGUST,SEPTEMBER, 
OCTOBER,NOVEMBER,DECEMBER); 


type YEAR is range 00 .. 2050 ; 
type MONTH-INT is range 1 .. 12; 
type DATE is 
recorcl 


WEEK-DAY = DAY; 
MONTH-NAME : MONTH; 
MONTH-NO : MONTH-INT; 
DAY-NO : DAY-INT; 
YTD-DAYS JULIAN-DAYS; 
TOTAL-DAYS : INTEGER; 
YEAR-NO = YEAR; 


— Hanp. .- 
— Hanp.: 
— Hanp. ; 
— Hanp.: 
— Дни от 
— Отсчет 
— ной даты 


TUESDAY. 

JULY. 

7 . 

15 . 

1 до 366 . 
от началь- 
BASE-DATE . 


end record; 

BASE-DATE : constant DATE := 

(MONDAY,JANUARY,1,1,1,1,1984); 
— В данной программе предполагается, что на 

— вход подаются только даты, располагающиеся 

— после 1 января 1984г. Для других дат из- 

— мените должным образом эту константу. 
BASE-LEAP : constant INTEGER == 

INTEGER(BASE-DATE.YEAR-NO) / 4 + 

INTEGER(BASE-DATE.YEAR-NO) / 400 - 
INTEGER(BASE-DATE.YEAR-NO) / 100; 


— Эта константа равна количеству високосных 

— лет, прошедших от нулевого года до года 

— BASE-DATE . YEAR-NO . Обратите внимание, что 

— при ее вычислении используется статичес- 

— кое выражение и преобразование типа. 
INPUT-DATE, HOLD-DATE = DATE; 

NO-OF-SATURDAYS, NO-OF-SUNDAYS : INTEGER; 
type CONTRACTOR is 

record 
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ID-NO : STRING 
CO-NAME: STRING 
end record; 
type INFO-LINE is 
record 

CURR-CONTRACTOR 
DAYS-WORKED 
DUE-DATE 
end record; 


( 1 .. 9) ; 

( 1 .. 21 ) ; 


: CONTRACTOR ; 
: INTEGER / 

: DATE / 


PROC-LINE : INFO-LINE; 

type DAYS_IN-MONTH is array (MONTH-INT/BOOLEAN) 
of DAY-INT; 


ACTUAL-DAYS-IN_YEAR = constant DAYS-IN-MONTH == 
( (31,31),(28,29),(31,31),(30,30), 

(31/31) ,(30,30),(31,31),(31,31), 

(30,30),(31,31)/(30/30) /(31 ,31) ); 


— Мы об'явили массив-константу, индексируемый 

— значениями типа MONTH-INT в диапазоне от 1 

— до 12 и логическими значениями - всего 

— лишь двумя (FALSE и TRUE). FALSE означает, 

— что представленный год - не високосный, 
type FEE is delta 0.0001 range 0.000 .. 

500-000.000 ; 


— Об'явлен фиксированный тип. 

— Вам следует удостовериться, разрешено 

— ли в вашей версии Ады такое количество 

— цифр в этом числе. 

package FEE-IO is new FIXED-IO(FEE); 
use FEE-IO, 

CONTR—DAILY_FEE, CONTR-TOTAL-FEE : FEE, 
package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 

GOOD-DAY, GOOD YEAR, LEAP-YEAR : BOOLEAN; 
package DAY-10 is new ENUMERATION-10(DAY); 
use DAY-10; 

package MONTH-IO is new ENUMERATION-10(MONTH); 
use MONTH-IO; 

package YEAR-10 is new INTEGER_IO(YEAR); 
use YEAR—10; 

package MONTH-INT is new INTEGER-I0(MONTH-INT); 
use MONTH-INT; 

package DAY-INT-IO is new INTEGER-I0(DAY_INT); 
use DAY-INT_I0; 

INPUT-LEAP = INTEGER ; 

XTRA-DAYS : INTEGER ; 
procedure COUNT_DAYS_AND_CHECK is 

— Эта процедура заполнит оставшиеся компоненты 

— структуры INPUT-DATE. В ней уже присвоены 

— значения компонентам DAY-NO , M0NTH-N0 и 

— YEAR-N0. Вспомните, что в соответствии с ма- 

— териалом разд.1.5 об'екты, об'явленные в про- 

— цедуре DATE-CONVERSION, будут известны, и в 

— данной процедуре их можно использовать, 
begin 

— Правильно ли задан год? Если нет, то 

— GOOD-YEAR := FALSE; 

if INPUT-DATE.YEAR-NO < 1900 
then 
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INPUT-DATE.YEAR-NO INPUT-DATE.YEAR-NO + 1900; 
end if; 

if INPUT-DATE.YEAR-NO < BASE-DATE.YEAR-NO 
then 

GOOD-YEAR .• = FALSE; 

else 

GOOD-YEAR : = TRUE; 
end if; 

— Мы не проверяем номер месяца. Если он выходит 

— за интервал 1 .. 12/ то при присвоении номера 

— месяца возникнет исключительная ситуация/ сви- 

— детельствуюиая об ошибке. 

— Число - правильное ? Если нет/ то 

— GOOD-DAY := FALSE; Но сперва выясним/ не висо- 

— косный ли это год. См также программу 

— DAY-CONVERSION из разд.1.4. 

if INPUT-DATE . YEAR-NO rent 4 = 0 and 
INPUT-DATE.YEAR-NO rem 100 /= 0 or 
INPUT-DATE.YEAR-NO rem 400 = 0 
then 

LEAP-YEAR : = TRUE; 
else 

LEAP-YEAR == FALSE; 
end if; 

— Теперь можно употребить LEAP-YEAR для обраце- 
— ния к нужной строке массива 

ACTUAL-DAYS-IN-YEAR . 
if INPUT-DATE.DAY-NO > 

ACTUAL-DAYS-1N-YEAR < INPUT-DATE.MONTH-NO / 

LEAP-YEAR) 

then 

GOOD-DAY := FALSE; 
else 

GOOD-DAY : = TRUE; 
end if; 

— Теперь найдем YTD-DAYS для этой даты, 
if GOOD-DAY 
then 

INPUT-DATE.YTD-DAYS = = 

JULIAN_DAYS<INPUT-DATE.DAY-NO); 
— Здесь необходимо преобразование типа, 
if INPUT-DATE.MONTH-NO > 1 
then 

for I in 1 .. INPUT-DATE.MONTH-NO - 1 
loop 

INPUT-DATE.YTD-DAYS == INPUT-DATE.YTD-DAYS + 
JULIAN-DAYS(ACTUAL-DAYS-IN-YEAR 
( I/ LEAP-YEAR )) ; 

end loop; 
end if; 
end if; 

— Найдем/ сколько дней прошло от даты отсчета 

— до представленной даты. Вначале выясним/ 

— сколько прошло високосных лет до введенной 

— даты. 

INPUT-LEAP != INTEGER(INPUT-DATE.YEAR-NO) / 4 + 

INTEGER<INPUT-DATE.YEAR-NO) / 4Ѳ© - 
INTEGER<INPUT-DATE.YEAR-NO) / 100 ; 
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INPUT-DATE.TOTAL-DAYS ,= 365 * INTEGERS 

INPUT-DATE.YEAR-NO - BASE-DATE.YEAR-NO )) + 

INTEGER(INPUT-DATE.YTD-DAYS) + INPUT-LEAP - 
BASE-LEAP; 

— Найдем день недели и название месяца. 
INPUT-DATE.MONTH-NAME := 

MONTH ' VAL <INPUT-DATE.MONTH-NO); 
— Вспомните/ что атрибут VAL применим для 
— перечисляемых типов. 

INPUT-DATE.WEEK-DAY ,= DAY'VAL ( 

(INPUT-DATE.TOTAL-DAYS + DAY'POS< 
BASE-DATE.WEEK-DAY) - 2) mod 7 + 1 >; 
— Это выражение - довольно сложное. 

— Вначале вычисляется позиция дня недели 

— для даты отсчета BASE-DATE. Позиция 

— равна/ например/ 2 для вторника 
(TUESDAY). Она добавляется к общему ко- 

— личеству дней минус 2. Остаток от деле- 

— ния этого числа на 7 плюс 1 дает отно- 

— сительную позицию представленного дня 

— недели (целое число в интервале от 1 до 

— 7). Вы сможете лучше понять смысл этого 

— выражения/ если попытаетесь вычислить 

— его вручную для нескольких дат. 
end COUNT_DAYS_AND_CHECK; 

begin 

GET(PROC_LINE.CURR-CONTRACTOR.ID-NO); 
while PROC-LINE.CURR-CONTRACTOR.ID-NO /= “999999999’' 
loop 

GET(PROC-LINE.CURR-CONTRACTOR.CO-NAME); 

GET <INPUT-DATE.YEAR-NO ,2) > 

GET(INPUT-DATE.MONTH-NO ,2)> 

GET(INPUT-DATE.DAY-NO ,2)} 

— Начальная дата прочитана в формате ГГММДД. 

— Обратите внимание/ что для этих трех опера- 

— торов GET понадобились три различных пакета. 
COUNT_DAYS_AND_CHECK ; 

— Вызов процедуры COUNT—DAYS-AND-CHECK . Обра- 

— ботка конечной даты будет выполняться только 

— в том случае/ если начальная дата задана 

— корректно. 

if GOOD-YEAR and GOOD-DAY 
then 

HOLD-DATE : = INPUT-DATE; 

—■ Запоминается начальная дата. Здесь исполь- 
— зуется присваивание структур. 

GET(INPUT-DATE . YEAR-NO/2) ; 

GET(INPUT-DATE.MONTH-NO ,2)> 

GET(INPUT-DATE.DAY-NO /2); 

COUNT-DAYS-AND-CHECK; 
if GOOD-YEAR and GOOD-DAY 
then 

— Вычисляется количество отработанных дней. 
PROC-LINE.DAYS-WORKED == 

INPUT-DATE.TOTAL-DAYS - 
HOLD-DATE.TOTAL-DAYS + 1/ 

GET(CONTR-DAILY-FEE / 6); 

_ Определим/ сколько было суббот. 
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NO-OF-SATURDAYS : = PROC_LINE.DAYS.WORKED / 7; 
if DAY'POS(HOLD_DATE.WEEK_DAY) + 

INFO_LINE.DAYS-WORKED mod 7 - 1 > 5 
then 

NO_OF_SATURDAYS == NO_OF_SATURDAYS + 1; 
end if; 

— Определим/ сколько было воскресений. 
NO_OF_SUNDAYS := PROC-LINE.DAYS-WORKED / 7; 
if DAY'POS(HOLD-DATE.WEEK-DAY) + 

PROC-LINE.DAYS-WORKED mod 7 - 1 > 6 

then 

NO-OF-SUNDAYS .= NO-OF-SUNDAYS + 1; 
end if./ 

— Теперь выясним дату выдачи зарплаты. Это 

— важно для банков. Пять рабочих дней на прак- 

— тике означают неделю срока - возможно/ на 

— один или два дня меньше/ если дата окончания 

— договора выпадет на выходные дни. 
if INPUT-DATE.WEEK-DAY - SATURDAY 

then 

PROC-LINE.DUE-DATE.TOTAL-DAYS == 

INPUT-DATE.TOTAL-DAYS + 6; 

PROC-LINE.DUE-DATE.WEEK-DAY := FRIDAY; 
elsif INPUT-DATE.WEEK-DAY = SUNDAY 
then 

PROC-LINE.DUE-DATE.TOTAL-DAYS := 

INPUT-DATE.TOTAL-DAYS + 5; 

PROC-LINE.DUE-DATE.WEEK-DAY == FRIDAY; 
else 

PROC-LINE.DUE-DATE.TOTAL-DAYS == 

INPUT-DATE.TOTAL-DAYS + 7; 

PROC-LINE.DUE-DATE.WEEK-DAY = = 

INPUT-DATE.WEEK-DAY ; 
end if; 

XTRA-DAYS = = PROC-LINE.DUE-DATE.TOTAL-DAYS - 
INPUT—DATE.TOTAL-DAYS ; 

— Теперь выясним/ попадает ли дата выплаты 

— на новый месяц или на новый год. 

if INPUT-DATE.DAY-NO + DAY-INT(XTRA-DAYS) < 
ACTUAL-DAYS-IN_YEAR (INPUT-DATE.MONTH-NO / 
LEAP-YEAR) 

then 

PROC-LINE.DUE-DATE.DAY-NO == 

INPUT-DATE.DAY-NO + XTRA-DAYS; 

PROC-LINE.DUE-DATE.MONTH-NAME == 

INPUT-DATE.MONTH-NAME; 
PROC-LINE.DUE-DATE.YEAR-NO := 

INPUT-DATE.YEAR-NO; 

else 

PROC-LINE.DUE-DATE.DAY-NO := 

INPUT-DATE.DAY-NO + DAY-INT(XTRA-DAYS) - 
ACTUAL-DAYS-IN_YEAR (INPUT-DATE.MONTH-NO / 
LEAP-YEAR); 

if INPUT-DATE.MONTH-NAME < DECEMBER 
then 

PROC-LINE.DUE-DATE.MONTH-NAME := 

MONTH'SUCC(INPUT-DATE.MONTH-NAME); 
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PROC-LINE . DUE-DATE . YEAR-NO .- 
INPUT-DATE . YEAR—NO ; 

else 

PROC-LINE.DUE-DATE.MONTH-NAME == JANUARY; 
PROC-LINE.DUE-DATE.YEAR-NO == 

INPUT-DATE.YEAR-NO + 1; 
end if; 
end if; 

— Вычислить сумму причитающейся зарплаты. 
CONTR-TOTAL-FEE := FEE< CONTR-DAILY-FEE * 

FEE ( PROC-LINE.DAYS-WORKED * 

(1 + NO-OF-SATURDAYS + 2*N0_0F_SUNDAYS)); 
— Вспомните/ что результат умножения 

— об'ектов фиксированного типа FEE уже 

— не относится к типу FEE. 

— В заключение напечатаем результаты. 

PUT ( PROC—LINE . CURR-CONTRACTOR . ID-NO); 

PUT(PROC-LINE.CURR-CONTRACTOR.CO-NAME) ; 
PUT( и Days worked H > ; 

PUT < PROC-LINE.DAYS-WORKED,5); 

NEW-LINE; 

PUTC Amount due C); 

PUT(CONTR-TOTAL-FEE / 10 / 2); 

PUTC* Due date C); 

PUT(PROC-LINE.DUE-DATE.WEEK-DAY);PUT <" / “); 
PUT(PROC-LINE.DUE-DATE.MONTH-NAME); 

PUT(PROC-LINE.DUE-DATE.DAY_N0 / 5);PUT C / "); 
PUT(PROC-LINE.DUE-DATE.YEAR-NO, 5); 
else 

PUTC Bad ending period “); 
end if; 
else 

PUTC Bad starting period H ); 
end if; 

SKIP-LINE; 

GET(PROC-LINE.CURR-CONTRACTOR.ID_N0); 
end loop; 

end DATE-CONVERSION; 


2.4.4. Дискриминанты комбинированных типов 

В языке Ада имеется средство, называемое дискриминантом, которое позволяет 
определить семейство комбинированных типов. Дискриминант -это именованная ком¬ 
понента каждого объекта данного комбинированного типа. Ее имя должно появиться 
перед именами компонент, перечисленных в определении этого комбинированного 
типа. 

Объявление комбинированного типа с дискриминантами имеет форму. 

type имя_комбинированного_типа 

(объявления_дискриминантов) is 
record 

список_компонент 
end record; 
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Объявления-дискриминантов 1 * заканчиваются символом Каждое такое объявление 
очень похоже на обычные объявления объектов дискретного типа. Дискриминантная 
часть-это последовательность объявлений—дискриминантов, заключенная в скобки. 

Примеры. Пример объявления комбинированного типа с дискриминантами: 

type PAGES is array (NATURAL range <>, NATURAL range <>) of CHARACTER; 

Тип NATURAL (Натуральный) охватывает положительные целые числа. Как будет 
видно из материала следующего раздела, это-предопределенный подтип. 

Другой пример: 

type LINE-NUMBERS is array (NATURAL range <>) of INTEGER; 

Выше были объявлены два неуточненных регулярных типа, объекты которых 
используются далее. 

type PAGE-FORMAT ( NO-OF-LINES : POSITIVE ==55 ; 

NO-OF-COLUMNS:POSITIVE ==80 ); 
is 

record 

STD-HEADER : STRING ( 1 .. NO_OF_COLUMNS ); 

STD-BODY = PAGES ( 1 .. NO-OF-LINES, 

1 .. NO_OF_COLUMNS); 

STD-LINES : LINE-NUMBERS < 1 .. NO_OF_LINES ); 

STD-FOOTER = STRING (1 .. NO_OF_COLUMNS >; 
end record; 

Тип PAGE-FORMAT -комбинированный тип с дискриминантами. Дискриминантная 
часть содержит два объявления дискриминантов. Первое из них-это 
NO_OF_LINES : POSITIVE := 55 

После него стоит символ «;». Объявление второго дискриминанта: 

NO_OF_COLUMNS : POSITIVE : = 80 

Оба объявления задают начальные значения, которые дискриминанты могут при¬ 
нимать по умолчанию. Начальные значения либо должны быть указаны для всех 
дискриминантов из дискриминантной части объявления комбинированного типа, либо 
не указываются вовсе. 

Внутри объявления комбинированного типа имена дискриминантов (в нашем 
примере-это NO_OF_COLUMNS и NO_OF_LINES) можно использовать в качестве 
границ диапазонов индексов. В данном примере значения границ задаются с помощью 
NO_OF_COLUMNS для компонент STD-HEADER, STD-BODY и STD-FOOTER. 
При помощи идентификатора NO OF-LINES указываются границы индексов -для 
компонент STD-BODY и STD-LINES. 

Имя дискриминанта можно использовать только самостоятельно, т.е. оно не 
должно входить в состав более сложных выражений. Например, было бы непра¬ 
вильным такое объявление компоненты, входящей в тип PAGE-FORMAT : 
STD-COLUMN : STRING (1 .. N0_0F_C0LUMNS-1 ); 

Имя дискриминанта также можно употреблять в вариантных частях (см. гл. 4). Его 
можно использовать и для указания значения другого дискриминанта при объявлении 
иного (вложенного) комбинированного типа со своим дискриминантом. 

Применение дискриминанта в типе PAGE-FORMAT дало возможность опре¬ 
делить целое семейство типов PAGE-FORMAT. Фактические же значения величин 


Кроме последнего - Прим, перев. 
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NO_OF_LINES и NO_OF_COLUMNS задаются во время объявления объектов, при¬ 
надлежащих к этому типу. Примером такого объявления структуры может служить: 
TITLE_PAGE : PAGE_FORMAT (25, 45); 

Здесь объявляется объект типа PAGE_FORMAT, у которого NO_OF_LINES равно 25, 
a NO_OF_COLUMNS равно 45. А вот другие объявления объектов: 

REGULAR_PAGE : PAGE-FORMAT (45,70); 

MARGIN-WIDTH : constant INTEGER :» 10; 

APPENDIX-PAGE,INDEX-PAGE : 

PAGE-FORMAT (40 1 MARGIN_WIDTH + ЗѲ ); 

Фактические значения дискриминантов, задаваемые при объявлении структур, 
называются спецификациями дискриминантов. Полный список спецификаций дискрими¬ 
нантов, разделенных запятыми и заключенных в скобки, называется уточнением 
дискриминантов. Для структуры INDEX_PAGE, объявленной выше, уточнение дискри¬ 
минантов-это 

(40, MARGIN-WIDTH + 30) 

Здесь-две спецификации дискриминантов. Первая-40, а вторая -MARGIN- 
WIDTH + 30. Как видно из этого примера, спецификации дискриминантов могут быть 
выражениями. Начиная с гл. 4, в нескольких программах будут широко употребляться 
структуры с дискриминантами. 

Рис. 2.4. иллюстрирует объявления структур, принадлежащих к комбинирован¬ 
ному типу PAGE-FORMAT. 


TITLE-PAGE 


PAGE-FORMAT 

NO-OF-COLUMNS 



Рис. 2.4. Комбинированные типы с дискриминантами в программе PAGE-FORMAT. 


Если при объявлении типа задаются начальные значения дискриминантов, то 
указывать при объявлении объектов данного типа уточнение дискриминантов не 
обязательно, так как дискриминанты при отсутствии уточнения примут по умолчанию 
эти начальные значения. Например, будет правильным такое объявление объекта: 

ANY_PAGE : PAGE_FORMAT; 






Здесь по умолчанию будут приняты значения дискриминантов (55, 80). Если по¬ 
требуются другие значения, то следует задавать соответствующее уточнение дискри¬ 
минантов при каждом объявлении объектов. 

Дискриминантам нельзя непосредственно присваивать значения. Например, было 
бы ошибкой написать 

ANY_PAGE.NO_OF_LINE := 2; 


Однако можно изменить значения дискриминантов, если присвоить значения сразу 
всем компонентам структуры, например: 


ANY PAGE := (2, 2, 


((X, V), ('М\ 'N0), 


(1, 2), 

“W”); 


NO_OF_LINES и NO_OF_COLUMNS получают зна¬ 
чение 2 

“АА” присваивается компоненте STD_HEADER 
STD_BODY получает значения 'X', 'Y' для первого ряда 
и 'М', 'N' для второго 
STD_LINES получает значения 1, 2 
“W” присваивается компоненте STD_FOOTER 


Во всех остальных отношениях дискриминанты ведут себя как обычные ком¬ 
поненты структуры. Следует также отметить, что если присутствует уточнение 
дискриминант, то значения дискриминантов изменять больше нельзя. Поэтому 
оператор присваивания, который был правильным для структуры ANY_PAGE, так как 
в ней отсутствовали уточнения дискриминантов, будет ошибочным, скажем, для 
структуры TITLE-PAGE, поскольку в ней уточнения заданы при объявлении. 

Как видно из приведенного выше примера присваивания агрегата структуре 
ANY_PAGE, во многих ситуациях позиционная форма агрегатов трудно воспри¬ 
нимается при чтении программы. В гл. 4 будет представлена иная, более удобная для 
восприятия форма агрегата. 

Объекты одного и того же комбинированного типа с дискриминантами можно 
сравнивать друг с другом на равенство/неравенство. В этом случае будет проверяться 
равенство или неравенство каждой из соответствующих компонент этих структур. Так, 
для приведенных выше объявлений структура REGULAR_PAGE не может быть равной 
структуре INDEX_PAGE, если в REGULARJPAGE.STD_BODY будет иное число 
строк и/или столбцов, чем в INDEX_PAGE.STD_BODY. 

2.5. ПОДТИПЫ И ПРОИЗВОДНЫЕ ТИПЫ 

Вспомните, что типы определяют совокупности значений й операции, разрешенные 
к использованию с этими значениями. К настоящему моменту мы познакомились со 
следующими типами языка Ада: перечисляемыми, целыми, действительными, регуляр¬ 
ными и комбинированными. В языке Ада есть еще два типа: ссылочные типы (см. 
следующую главу) и приватные типы (см. гл. 7). кроме того, в Аде существуют 
подтипы и производные типы, которые и освещаются в данном разделе. 

2.5.1. Подтипы 

Программист может пожелать ограничить диапазон возможных значений для 
типа, но сохранить при этом имевшийся набор операций. Этого можно достичь путем 
определения так называемого подтипа для заданного типа. Ограничение диапазона 
значений называется уточнением, а исходный тип называется базовым типом. Тип 
можно рассматривать и как свой собственный подтип, а поэтому тип является своим 
собственным базовым типом. В языке Ада есть четыре вида уточнений: уточнение 
диапазона значений, указание точности, уточнение диапазона индексов и уточнение 
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дискриминанта. Их примеры были приведены в двух первых главах книги при 
объявлениях различных типов. Примеры из данного раздела продемонстрируют 
применение уточнений Ады для подтипов этого языка. 

Форма объявления подтипа следующая: 
subtype имя_подтипа is обозначение_типа; 

Если присутствует какое-либо уточнение, то объявление принимает вид 
subtype имялодтипа is обозначение_типа уточнение; 

Обозначение_типа-это либо имя_типа, либо другое имялодтипа. Уточнение 
относится к одному из четырех перечисленных выше. 

Пример. Объявления подтипа с уточнением диапазона значений может быть таким: 
subtype POSITIVE is INTEGER range 1 .. INTEGER'LAST; 

Этот предопределенный подтип типа INTEGER (Целый) охватывает значения от 1 до 
наибольшего целого числа, разрешаемого конкретной реализацией языка. Все опера¬ 
ции, допустимые для типа INTEGER, будут разрешены и для подтипа POSITIVE. Здесь 
присутствует уточнение диапазона значений. Если, скажем, при вычитании одного 
положительного числа из другого получится отрицательное число, то возникнет 
исключительная ситуация «нарушение уточнения» (constraint error). 

Границы диапазона значений (range constraint) в определении подтипа могут быть, 
как показывает следующий пример, и статическими, и динамическими выражениями, 
subtype MARGIN is INTEGER range LEFT_MARGIN + 5 .. RIGHT.MARGIN; 

Здесь левая граница LEFT_MARGIN + 5 -это либо статическое, либо динамическое 
выражение, значение которого не должно превосходить правой границы во время 
выполнения программы. 

Пример. Для типа 1 

type DAY is (MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY); 
можно определить подтипы: 

subtype WEEKEND is DAY range SATURDAY .. SUNDAY; 
subtype WORKDAY is DAY range MONDAY .. FRIDAY; 

CURR.DAY : WORKDAY; 

Эти типы являются подтипами перечисляемого типа DAY. Одни и те же атрибуты 
применимы как к типу DAY, так и к его подтипам. Если переменным присваиваются 
значения, выходящие за границы указанного диапазона, то возникает исключительная 
ситуация «нарушение уточнения». 

Это произойдет, например, при выполнении оператора 
CURR_DAY : = SATURDAY; 

Указания точности (accuracy constraints) применяются для действительных типов, 
т. е. и для плавающих, и для фиксированных. Вот примеры для плавающих типов: 
type HIGH.PRECISION is digits 15; 
subtype LESS PRECISION is HIGH.PRECISION digits 8; 
subtype TIGHT.RANGE is HIGH ^PRECISION range - 2.00 .. 2.00; 

Значения, принадлежащие к подтипу LESS_PRECISION,-3TO значения типа HIGH_ 
PRECISION, но только с восемью значащими цифрами. Количество цифр, задаваемое 
при определении подтипа, должно быть целым положительным числом, меньшим или 
равным количеству цифр в базовом типе. Поэтому неверной была бы строка: 
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subtype BAD_FLOAT is HIGH_PRECISION digits 16; 
но можно записать 

subtype GOOD_FLOAT is HIGH_PRECISION digits 14; 

Вот некоторые примеры указаний точности в объявлениях фиксированных под¬ 
типов. 

type FEE is delta 0.ѲѲ01 range Ѳ.00 .. 500-000.00; 
sybtype CHECK is FEE delta Ѳ.005 

range 0.01 . .5000.00; 
sybtype PAYOFF is FEE delta 0.002; 
sybtype SMALL-FEE is FEE range 0.01 .. 5000.00; 
sybtype PETTY-CASH is SMALL-FEE range 0.01 .. 

200.00; 

Обратите внимание на то, что значение абсолютной точности (delta) для подтипа не 
может быть меньшим, чем значение точности у исходного типа. Заметьте также, что 
для фиксированного подтипа уточнение диапазона значений может отсутствовать, при 
этом берется весь диапазон значений базового типа. Однако при объявлении самого 
базового фиксированного типа диапазон значений следует задавать обязательно. 
Кроме того, диапазон значений подтипа не должен выходить за границы предыдущих 
диапазонов 1 *. Объявление подтипа SMALL_FEE 

subtype BAD_PETTY_CASH is SMALL_FEE range 0.01 .. 50000.00; 

неправильно, так как верхняя граница диапазона значений этого подтипа выходит за 
диапазон значений для обозначения_типа 2) . 

Уточнение диапазона индексов (index constraints), как отмечалось в разд. 2.2, 
применяется для указания дискретных границ значений индексов у регулярных типов. 
Диапазон индексов можно задавать только для тех типов или подтипов, которые еще 
не имеют его. Диапазоны индексов указываются при определении уточненных регуляр¬ 
ных типов, для которых, следовательно, нельзя определять никакие подтипы. 

Пример. Пусть имеется определение уточненного регулярного типа: 

type RATES is array (I .. J, К .. L) of FLOAT; 

Тогда объявление 

subtype BAD_RATES is RATES (I + 1 .. J - 1, К ..L); 

будет неправильным, так как совокупность диапазонов индексов (I .. J, К .. L) была 
задана уже для типа RATES, и, следовательно, указывать впоследствии новую 
совокупность диапазонов индексов (I + 1 .. J — 1, К .. L) для подтипа BAD_RATES уже 
было нельзя. Однако если есть объявление для неуточненного регулярного типа, 
например: 

type MATRIX is array (INTEGER range <>, INTEGER range <» of INTEGER; 
то объявление подтипа 

subtype POSJMATRIX is MATRIX (I + 1 .. J - 1, К .. L); 
будет правильным. 

Четвертый вид уточнений, которые можно употреблять в объявлениях под¬ 
типов,-это уточнение дискриминанта (discriminant constraint). Оно используется в 

11 Здесь имеется в виду «каскадное» объявление подтипов, когда один подтип определяется 
на основе другого.- Прим, перев. 

2) В данном случае-это подтип SMALLFEE - Прим, перев. 
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объявлениях комбинированных типов. Как и в случае диапазона индексов, уточнение 
дискриминантов допустимо применять только для того типа или подтипа, у которого 
пока еще нет такого уточнения. 

Пример. Рассмотрим тип PAGE_FORMAT из предыдущего раздела. Он объявлен так: 

type PAGE-FORMAT<NO_OF_LINES : POSITIVE .= 55; 

NO-OF-COLUMNS : POSITIVE :« 80) 
is 

record 

STD-HEADER = STRINGd .. NO-OF-COLUMNS); 

STD-BODY : PAGES(1 ..NO-OF-LINES, 

1 .. N0_0F_C0LUMNS); 

STD-LINES : LINE-NUMBERS(1 .. NO-OF-LINES); 

STD-FOOTER = STRINGd .. NO_OF_COLUMNS); 
end record; 

Можно определить подтип для этого комбинированного типа, так как в самом типе 
отсутствует уточнение дискриминантов. Правильным будет следующее объявление: 
subtype DRAFT.PAGES is PAGE.FORMAT (50, 80); 

Здесь 50 и 80 -уточнение двух дискриминантов. 

Другие примеры объявлений подтипов с использованием уточнений дискриминан¬ 
тов будут даны в гл. 4 после знакомства с вариантными комбинированными типами. 


2.5.2. Производные типы 

Подтипы принадлежат к исходному базовому типу и их значения-это значения, 
относящиеся к этому же исходному типу. В то же время при необходимости можно 
ввести так называемые производные типы, которые обладают новым набором значений, 
независимых от исходного набора, использованного при определении этих производных 
типов. Общая форма объявления производных типов такова: 

type имя_производного_типа is new обозначение.типа; 

Если есть уточнение, то 

type имя_производного_типа is new обозначение.типа уточнение; 

Уточнения, используемые для производных типов, имеют те же самые формы, что и 
для подтипов. 

Обозначение.типа в объявлении-это либо имя типа, либо имя подтипа. Базовый 
тип, указываемый в обозначении_типа, называется в этом случае родительским типом 
для вводимого производного типа, а совокупность возможных значений производного 
типа-это копия совокупности возможных значений родительского типа. Операции, 
атрибуты, литералы и агрегаты (если они есть) родительского типа наследуются 
производным типом. Кроме того, допускаются явные преобразования величин роди¬ 
тельского типа в величины производного типа и обратно. 

Примеры. Рассмотрим некоторые примеры производных типов. В типе 
type ACCOUNT is new INTEGER; 

родительским типом является тип INTEGER. Значения производного типа ACCOUNT - 
это копии целых значений. Операции для объектов типа ACCOUNT дублируют 
операции для объектов типа INTEGER. 
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В объявлении 
АСС1, АСС2: ACCOUNT; 

объекты АСС1 и АСС2 относятся к типу ACCOUNT. В объявлении 
NUM1, NUM2:INTEGER; 

объекты NUM1 и NUM2 принадлежат к типу INTEGER. В операторе присваивания 
АСС1 : = АСС1 + 7; 

при выполнении операции сложения для типа ACCOUNT принимают участие перемен¬ 
ная АСС1 типа ACCOUNT и литерал 7, принадлежащий к универсальному целому 
типу. При использовании объектов универсального целого типа не требуется явного их 
преобразования к другим целым типам. 

В операторе присваивания 
NUM1 : = АСС1 + NUM2; 

употребляются производные типы. Этот оператор неправилен, так как нельзя склады¬ 
вать объекты двух разных типов. 

В операторе присваивания 
NUM1 := АСС1 +ACC0UNT(NUM2); 

вначале осуществляется явное преобразование переменной NUM2 целого типа к типу 
ACCOUNT; Затем складываются две величины типа ACCOUNT. Из контекста можно 
определить, что эта операция относится к типу ACCOUNT. Потом значение типа 
ACCOUNT присваивается переменной типа INTEGER. Такое присваивание некор¬ 
ректно. 

Вот еще примеры правильных операторов присваивания, в которых употребляют¬ 
ся производные типы: 

NUM1 : = ll)ITEGER(ACC1 + ACC0UNT(NUM2)); 

NUM1 : = INTEGER(ACCI) + NUM2; 

Более подробно правила преобразования типов будут изложены в гл. 6. 

Теперь рассмотрим некоторые примеры производных типов, в которых использу¬ 
ются уточнения. В объявлении 

type ITEM is new INTEGER range 1 .. 9999; 

ITEM -производный тип с уточнением диапазона значенкй. В объявлении 

type FEE is delta 0.0001 range 0.00 .. 500_000.00; 

FEE -это производный тип с указанием точности. 

В объявлениях 

type PAYCHECK is new FEE delta 0.001; 

I, J : INTEGER; 

type IT_MATRIX is new MATRIX(I, J); 

PAYCHECK -производный тип с указанием точности, a MATRIX -производный тип с 
уточнением диапазонов индексов. Тип MATRIX был определен ранее в настоящем 
разделе. В заключение рассмотрим объявление: 

type PRINT.PAGE is new PAGE.FORMAT (59, 132); 

Здесь PRINT_PAGE- производный тип с уточнением дискриминантов. 

Обратите внимание на то, что при - использовании уточнения в определении 
производного типа вводится тип, значения которого являются копиями значений 



Действительные, регулярные и комбинированные типы 


родительского типа. В этом случае производный тип действует как подтип, значения 
которого отбираются среди значений родительского типа. Например, объявление 
type XYZ is new FEE delta 0.01; 
эквивалентно объявлению 
type ABC is new FEE; 
subtype XYZ is ABC delta 0.01; 

Производные типы удобны для введения в программу логических и мнемоничес¬ 
ких отличительных особенностей путем определения совершенно разных типов для 
различных абстрактных понятий, что позволяет предотвратить их непреднамеренное 
перемешивание. Например, если определены типы 
type BODY.TEMPERATURE is new FLOAT; 
type BLOOD COUNT is new FLOAT; 

CURRJTEMP: BODY_TEMPERATURE; 

CURR_BLOOD_COUNT: BLOOD_COUNT; 

то нельзя перепутать переменные CURR_TEMP и CURR_BLOOD_COUNT. Трансля¬ 
тор обнаружит этот вид ошибок, и программа не пойдет на выполнение. Преимущест¬ 
ва использования производных типов и автоматически навязываемой ими дисциплины 
можно будет по достоинству оценить при разработке больших программ с сотнями 
объектов. 

УПРАЖНЕНИЯ 

1. Напишите программу, которая вычисляет и выводит данные о годовых доходах, 
получаемых по ценным бумагам со скидкой, по задаваемой стоимости этих бумаг. Вычисления 
проводятся по формуле: 

у = (гѵ — price)/price * b/dsm 
Здесь приняты следующие обозначения: 

у-годовой доход по ценным бумагам, хранящимся вплоть до срока выкупа (десятичное 
число, например, 9.85); 

гѵ- сумма выкупа на 100 долл, номинальной стоимости ценной бумаги (обычно 100, но может 
быть, например, и 95); 

price -стоимость ценной бумаги по курсу, деленная на 100 (например, 0.9805); 

Ь-количество дней в году (365 или 366); 

dsm - количество дней от даты оплаты до даты выкупа. 

В каждой входной строке задается информация об одной ценной бумаге со скидкой. Формат 
следующий: 

Дата выкупа Поз. 1-20 

гѵ Поз. 21-28 (два знака после десятичной точки) 

price Поз. 29-36 (четыре знака после десятичной точки) 

b Поз. 37-39 (целое число) 

dsm Поз. 40-42 

Пример входной строки: 

Позиция, 12345678901234567890123456789 012345678901 2 

Содержимое December 27 1984 100.0 0.9875366055 

Признаком конца входных данных служит строка со значением даты выкупа, равным «X 

». Для каждой ценной бумаги следует вывести дату ее выкупа и доход. 
Требуется отдельно отобразить данные о ценной бумаге, приносящей наибольший доход, и о 
ценной бумаге, дающей наименьший доход. Эту информацию нужно разместить после всего 
списка бумаг. Корректность даты проверять не нужно. 
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2. Измените программу SHIP_RATE из разд. 2.2.3 так, чтобы ACT_DIST_LIM и 
ACT_WEIGHT_LIM не были константами. Значения ACT_DIST_LIM и ACT_WEIGHT_LIM 
нужно вводить из первых двух входных строк данных. Необходимо проверять, указаны ли 
границы классов веса и расстояния в порядке возрастания их значений. Остальные входные строки 
не изменяются. Нужно ввести дополнительную проверку логичности вводимых данных о тарифах, 
т. е. значений CURR_RATES: чем дальше отправляется груз, тем дороже должна быть стоить его 
доставка. 

3. Измените программу GRADES из разд. 2.2.3 таким образом, чтобы она выводила 
таблицу частот правильных ответов на вопросы. 

4. Рассмотрим задачу составления платежной ведомости. Пусть федеральные налоги и 
налоги штатов для каждого из пятидесяти штатов исчисляются по различным шкалам. Величина 
налога находится в зависимости от доходов налогоплательщика. Диапазон доходов идентифици¬ 
руется его нижней границей. Каждому диапазону доходов соответствует определенная ставка 
налога. Информация о ставках налогов вводится перед сведениями о служащих. Данные о ставках 
налогов имеют следующий формат: в первой строке располагается двухбуквенное обозначение 
штата (например, AL для штата Алабама), далее в двух позициях следует целое число, равное 
количеству диапазонов доходов, подлежащих налогообложению. В следующих нескольких строч¬ 
ках, количество которых зависит от числа диапазонов доходов, размещаются данные о нижних 
границах диапазонов доходов и соответствующих им ставках налога. Каждое сведение о нижней 
границе и ставке налога занимает по 8 позиций строки. Таким образом, в одной строке 
максимально можно представить сведения о пяти диапазонах доходов. Эта информация задается 
для всех 50 штатов и для федерального правительства, идентифицируемого символами FG. Затем 
идут данные о каждом служащем в отдельности. Они имеют следующий формат: 

Позиции Данные 

1-9 Номер по социальному страхованию 

10-30 Фамилия служащего 

31-38 Заработная плата за неделю (ее следует преобразовать в годовой 

доход, так как именно для него вычисляются налоги) 

39-40 Количество иждивенцев 

Последней строкой данных является строка со значением 999999999, размещенным в поле номера 
по социальному страхованию. Сумма дохода, подлежащего налогообложению, вычисляется как 
номинальная плата за вычетом 25 долл, на каждого иждивенца. Федеральный налог и налог 
штата исчисляются от этой суммы, а налог по социальному страхованию определяется как 7% от 
номинальный платы. Сумма, выдаваемая на руки,-это номинальная плата за вычетом всех 
налогов, т.е. налога по социальному страхованию, налога штата и федерального налога. 
Напишите программу, которая будет выводить фамилию каждого служащего и выдаваемую ему 
заработную плату. 

5. Измените программу из упр. 1, считая, что дата оплаты и дата выкупа заданы в формате 
ГГММДД. Поле dsm заменено на два поля: 

Дата оплаты Поз. 40-45 

Дата выкупа Поз. 46-51 

Дата из первых 20 позиций используется только для идентификации ценной бумаги. Необходимо 
проверять правильность двух введенных в этом задании дат. Они не могут приходиться на 
выходные дни. При проверке корректности дат вам может помочь текст программы DATE_ 
CONVERSION из разд. 2.4.3. 



Глава 3 

Ссылочные типы 


3.1. ВВЕДЕНИЕ В ССЫЛОЧНЫЕ ТИПЫ 


До сих пор переменные, объявляемые в декларативной части приводимых в данной 
книге подпрограмм, существовали и использовались в течение всего времени вы¬ 
полнения подпрограммы. В этом разделе вводится новый тип, называемый ссылочным 
типом (access type). Объекты этого типа называются указателями. Они создаются или 
уничтожаются в процессе выполнения подпрограммы. 

Величины ссылочного типа обеспечивают доступ к другим объектам. Тип объек¬ 
тов, к которым можно обеспечить доступ при помощи данного ссылочного типа, 
задается при объявлении этого типа. Форма объявления ссылочного типа такова: 

type имя_ссылочного_типа is access обозначение_типа; 

Если имеются уточнения, то объявление принимает вид 

type имя_ссылочного_типа is access обозначение_типа уточнение; 

Обозначение_типа-это имя типа или подтипа. В качестве уточнения можно исполь¬ 
зовать только уточнение границ диапазонов индексов или дискриминантов. 

Пример 

type NAME_STRINGS is new STRING (1 .. 20); 
type ACC_NAMES is access NAME_STRINGS; 

Здесь ACCLNAMES -имя ссылочного т и па. Величины типа ACCLNAMES указывают 
на объекты типа NAMEJSTRINGS. Подразумевается, что тип NAME_STRINGS 
объявлен раньше, чем выполнено объявление типа ACCLNAMES. 

3.1.1. Особенности ссылочных типов 

Во множестве значений каждого ссылочного типа обязательно встречается значе¬ 
ние NULL. Указатель, равный NULL не указывает ни на какой другой объект иного 
типа. После объявления указателя ему присваивается значение NULL. Обратите 
внимание на то, что это-единственная ситуация, когда объекту языка Ада значение 
присваивается неявно. 

Пример 

AC_NAME_1, AC_NAME_2: ACCLNAMES; 

Здесь записано объявление двух ссылочных переменных типа ACC_NAMES. Их 
значения равны значению NULL. Это значение неявно присваивается переменным 
ACC_NAME_1 и ACC_NAME_2 во время трансляции программы. 

Новые объекты ссылочного типа можно создавать во время выполнения програм¬ 
мы, используя так называемые генераторы. Генератор обозначается словом new 
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(новый), за которым следует имя типа или подтипа (а при необходимости и уточнение). 
Значения новых объектов можно присваивать другим переменным того же типа 1 ’. 


ACC_NAME„1 := new NAME.STRINGS; 

Здесь создается объект типа NAME_STRINGS. Значение ссылки на этот объект 
присвоено переменной ACC_NAME_1. Теперь значение этой переменной указывает на 
строку из 20 символов. 

Основные операции для объектов ссылочного типа-это присваивание и проверка 
на равенство (=) или неравенство (/=). Следовательно, будет правильным оператор 
ACC_NAME_2 := ACC.NAMEJI; 

Это означает, что указатель на строку из 20 символов, который размещен в 
ACC_NAME_1, будет размещен и в переменной ACC_NAME_2. Теперь обе пе¬ 
ременные указывают на одну и ту же строку. 

Проверка 

ACC N AM Е_2 = ACC_NAME_1 

даст логическое значение TRUE только тогда, когда обе переменные указывают на 
один и тот же объект. В противном случае вырабатывается значение FALSE. 

Для ссылки на те фактические объекты, которые указывает ссылочная переменная, 
используется особое обозначение. За именем ссылочного типа следуют точка и 
зарезервированное слово а11 2) . 

Например, ACC_NAME_2.all- строковый объект типа NAME_STRINGS. Тогда пра¬ 
вильным будет оператор 

ACC_NAME_2.all := "12345678901234567890"; 

Не существует никаких ограничений на типы объектов, доступ к которым может 
осуществляться посредством ссылочных типов. Они могут быть объектами пере¬ 
числяемого, целого, регулярного, комбинированного, ссылочного или, как будет 
показано в дальнейшем, приватного типа. 

Пример. Можно записать такие объявления: 

type EMPLOYEE is 
record 

EMPL-NAME : STRING!1 ..20); 

HRS_WORKED : INTEGER; 
end record; 

type E-ACCESS is access EMPLOYEE; 

I : E-ACCESS; 


Генератор new создает анонимный объект некоторого типа X, доступ к которому 
осуществляется через указатель Р типа X_ACCESS, например: 
type X is new STRING (1 ..20); 
type X_ACCESS is access X; 

P :X_ACCESS; 

P:= new X; 

В первой строке данного примера new не генератор, а объявление производного типа. В последней 
строке new генератор. Он создает анонимный объект типа X, а ссылка на' этот объект 
присваивается указателю Р. Типом указателя Р является X_ACCESS, который обеспечивает 
возможность ссылки только на объекты типа X. Итак, генератор new создает и анонимный 
объект, и ссылку на него- Прим. ред. 

2) Это так называемая операция разыменования, когда вместо ссылки на объект получается 
его значение-Ярим, перев. 
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Значение I указывает на объекты типа EMPLOYEE. Запись I.all обозначает целостные 
структуры, а I.EMPL_NAME относится только к компоненте объекта комбинирован¬ 
ного типа, имеющей в данном примере строковый тип. 

3.1.2. Программа с использованием ссылочных типов 

Далее представлена программа, в которой используются переменные ссылочного 
типа. Эта программа является модификацией программы МАХЗ из гл. 1. Она находит 
наибольшее среди трех целых чисел. На вход подаются сведения о трех служащих и 
количестве отработанных ими часов. Программа выводит фамилию наиболее загру¬ 
женного служащего. Всего используются три входные строки (по одной на каждого 
служащего). 


Программа ACCESSJMAX3 
with TEXT-IO; use TEXT-IO; 
procedure ACCESS—MAX3 is 

package INT-IO is new INTEGER_IO<INTEGER); 
use INT-IO/ 
type EMPLOYEE is 
record 

EMPL-NAME = STRING<1 .. 20); 

HRS_WORKED : INTEGER ; 
end record; 

type E-ACCESS is access EMPLOYEE; 

I / J/K/L : E-ACCESS; 
begin 

I := new EMPLOYEE; 

— Создан об'ект типа EMPLOYEE. Ссылочное 

— значение/ указываюцее на него/ 

— присвоено переменной I. Заметьте/ что 

— I. ЕМРІ _ NAME - не проинициализировано. 

J := new EMPLOYEE; 

К := new EMPLOYEE; 

GET(I.EMPL-NAME);GET(I.HRS-WORKED); 
SKIP-LINE; 

GET(J.EMPL-NAME);GET < J.HRS-WORKED); 
SKIP-LINE; 

GET( К .EMPL-NAME);GET < К .HRS-WORKED); 

NEW-LINE; 

if I.HRS-WORKED > J.HRS-WORKED 
then 
L : = I; 

— Сравнивается отработка у двух служащих. 
— После этого L будет указывать на того 
— служащего, кто отработал больше часов, 
else 

L := J; 
end if; 

if L.HRS-WORKED < K.HRS-WORKED 
then 
L := K; 
end if; 

PUT<" The hardest working is “) 

PUT(L.EMPL-NAME); 

PUT(“ and he worked “); 

PUT < L.HRS-WORKED / 5); 
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Глава 3 


PUTC hours ")/ 

— ПОМЕТКА для вставки оператора. 

— (Пояснения - в следующем разделе.) 
end ACCESS—MAX3 ; 


Рис. 3.1, а и 3.1,6 демонстрируют значения указателя L для двух совокупностей 
входных данных. 
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Рис. 3.1. Значения указателя L. 

a -одна совокупность данных; б-другая совокупность данных. 
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3.1.3. Уничтожение объектов 

Как показано в программе ACCESS_MAX3, ссылочное значение, полученное с 
помощью генератора new, можно присваивать нескольким ссылочным переменным. 
Если говорить конкретно, то в программе ACCESS_MAX3 на строку с наиболее 
загруженным служащим указывают две ссылочные переменные: L и одна из перемен¬ 
ных I, J, К. До тех пор пока созданный объект доступен, т.е. на него указывает 
ссылочная переменная, память под объект распределена и он существует. Объект 
становится недоступным, когда никакая ссылочная переменная не может указать на 
него. 

Что случится, если к памяти, занимаемой объектом, невозможно больше никакое 
обращение? В некоторых реализациях Ады эту память можно использовать в иных 
целях, т.е. она освобождается. В других реализациях этого не происходит. 

Вернемся к программе ACCESS_MAX3. Сделаем недоступными объекты, содер¬ 
жащие сведения о менее загруженных служащих. Их можно сделать недоступными, 
если в программу на отмеченное «место для вставки» поместить нижеследующий 
оператор if: 

if L = I 

then 

J : = NULL; К := NULL; 

— Об'ектьь на которые указывали переменные 

— J и К/ становятся недоступными (к ним нельзя 

— больше обратиться).В зависимости от конкрет- 

— ной реализации Ады. память/ которую занимали 

— эти об'ектьі/ может или же не может быть 

— использована в дальнейшем. 
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elsif L = J 
then 

I NULL; К := NULL; 

else 

I := NULL; J := NULL; 

end if; 

— Теперь имеется доступ (ссылка) только к одному 

— об'екту; к нему можно обращаться с помощью L 

— и ещё одной ссылочной переменной. 

В связи с тем что память, занимаемая объектами, которые создаются при помощи 
генераторов new, изменяется во время выполнения программы, в Аде есть средства для 
явного уничтожения объектов. Уничтожение -это обратное действие по сравнению с 
созданием. Оно означает то, что ранее распределенная память становится доступной 
для иных целей. Явно уничтожить ссылочный объект (т. е. объект, доступ к которому 
осуществляется при помощи указателя) можно с помощью процедуры FREE, входящей 
в состав предопределенной (родовой) процедуры UNCHECKED_DEALLOCATION. 
Разумеется, при явном уничтожении ссылочных объектов следует проявлять большую 
осторожность, чтобы избежать случайного сохранения ссылочных переменных, указы¬ 
вающих на уже несуществующий объект. 

3.1.4. Эффективное использование ссылочных типов 

В некоторых ситуациях применение ссылочных типов позволяет достичь большей 
ясности программы и повысить ее эффективность. В качестве примера рассмотрим 
модифицированную программу SHIP_RATE (см. разд. 2.2.3). Назовем ее теперь 
ACCESS_SHIP_RATE. В ней сделаны следующие изменения. Вместо одной таблицы, 
как это было в SHIP_RATE, теперь из входного файла поступает несколько таблиц. 
В каждой таблице вводятся свои конкретные данные о категориях для расстояния 
доставки и веса груза. Таблица получает обозначение, состоящее из 10 символов. Если 
говорить более точно, то каждая таблица инициализируется с помощью четырех 
входных строк, первая из которых имеет следующий формат: 

Позиции Данные 

1-10 Обозначение таблицы, например OVERNIGHT (ночная доставка) 

11-34 Три числа (по восемь цифр в каждом), специфицирующие верхние 

границы для каждой категории расстояния. Числа следуют в по¬ 
рядке возрастания, например: 100.00 500.00 5000.00 Это озна¬ 
чает, что для первой категории, соответствующей значе н ию 
CLOSE_BY, расстояние находится в пределах от 0 до 100.0 миль; 
для третьей категории -от 500 до 5000 миль 
35-66 Четыре числа (из восьми цифр каждое), расположенные в воз¬ 

растающем порядке. Они задают верхние границы категорий 
веса груза 

Каждая из трех остальных строк содержит по четыре действительных числа и 
представляет собой тариф на оплату доставки одного фунта груза в зависимости от его 
класса веса и класса расстояния. Формат их такой же, как для программы SHIP_RATE. 
Признаком конца таблиц служит строка первого рода, размещенная за послед¬ 
ней таблицей, при этом в качестве обозначения таблицы используются символы 
“ХХХХХХХХХ”. На вход поступает неизвестное заранее количество таблиц (однако 
это количество не может превышать 20). Остальные входные строки имеют почти тот 
же формат, что и для программы SHIP_RATE. В них добавлено только десяти¬ 
символьное поле с обозначением таблицы. 
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Программа ACCESS_SHIP_RATE 

with TEXT-IO; use TEXT-IO; 
procedure ACCESS-SHIP-RATE is 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 

type ALLOWED-WEIGHT is digits 1Ф range Ѳ.ѲѲ .. 

7000 00 / 

type ALLOWED-DISTANCE is digits 10 range 0.00 .. 

8000.00; 

package DISTANCE-IO is new 

FLOAT-I0(ALLOWED—DISTANCE); 

use DISTANCE-10; 

package WEIGHT.IO is new FLOHT_10(ALLOWED-WEIGHT); 
use WEIGHT_IO; 

type DISTANCE-CLASS is (CL0SE-8Y/MED-DISTANCE/ 
LONG-DISTANCE); 

CURR-DIST_CLASS = DISTANCE-CLASS ; 
type WEIGHT-CLASS is 

< LIGHT/ MED-WEIGHT/ MED-HEAVY, HEAVY); 
CURR-WEIGHT-CLASS : WEIGHT-CLASS; 
type DIST-CATEGORIES is array ( DISTANGE-CLASS ) 
of ALLOWED—D1STANCE; 

type WEIGHT-ARRAY is array < WEIGHT-CLASS ) of 
ALLOWED-WEIGHT; 

type PRICES is delta 0.0001 range 0.000 .. 

package PRICES-IO is new-FIXED_IO<PRICES); 
use PRICES-IO; 

type SHIPPING-RATES is array ( DISTANGE-CLASS/ 

WEIGHT-CLASS ) of PRICES; 

— Следующая структура содержит всю информацию 

— о таблице грузовых тарифов, 
type SHIP-TBL is 

record 

CATEGORY : STRING < 1 .. 10 ); 

ACT-DIST-LIM : DIST_CATEGORIES; 

ACT-WEIGHT-LIM . WEIGHT-ARRAY; 

CURR-RATES : SHIPPING-RATES ; 
end record; 
type REGULAR-REC is 
record; 

ITEM-NO = INTEGER ; 

ITEM-DISTANCE = ALLOWED-DISTANCE ; 

ITEM-WEIGHT : ALLOWED-WEIGHT ; 

ITEM-COST = PRICES ; 

ITEM-SERVICE : STRING (1 .. 10 ); 
end record; 

INPUT-REC , REGULAR-REC; 

type SHIP-POINTER is access SHIP-TBL; 

type FULI_TBL is array (1 .. 20 ) 

of SHIP-POINTER; 

ACT-TBL : FULL-TBL; 

— Можно создать до 20 указателей. 

TBL-CNT, CRT-CNT : INTEGER .» 0; 
begin 
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TBL-CNT .» ТВІ _ CNT + 1; 

ACT-TBL (TBL-CNT) new SHIP-TBL; 

— Создан об'ект типа SHIP-TBL/ ссылочное 

— значение указывающее на него/ помещается 

— в ACT-TBL(TBL_CNT). 

— Здесь добавлены дополнительные операторы 

— для обработки первой строки/ в которой 

— указаны категория и верхние границы таблицы. 

GET < ACT-TBL ( TBL-CNT ). CATEGORY ); 

— Прочитать обозначение первой таблицы, 
while ACT-TBL (TBL-CNT).CATEGORY /- 

"XXXXXXXXXX" 

loop 

for JUNK-DIST in DISTANCE-CLASS 
loop 

GET(ACT-TBL(TBL-CNT).ACT_DIST_LIM(JUNK-DIST) / 
8 ) ; 

— Введены верхние границы классов расстояния, 
end loop; 

for JUNK-WEIGHT in WEIGHT-CLASS 
loop 

GET(ACT-TBL(TBL-CNT).ACT-WEIGHT-LIM( 

JUNK-WEIGHT), 8); 

— Введены верхние границы классов веса, 
end loop; 

SKIP-LINE; 

— Здесь вставка кончается. Теперь следует 

— текст/ аналогичный тексту SHIP-RATE, 
for JUNK-DIST in DISTANCE-CLASS 

loop 

for JUNK-WEIGHT in WEIGHT-CLASS 
loop 

GET(ACT-TBL(TBL-CNT).CURR-RATES( 

JUNK-D1ST/JUNK-WEIGHT) / 7); 
end loop; 

SKIP-LINE; 
end loop; 

TBL-CNT := TBL-CNT + 1; 

ACT-TBL(TBL-CNT) new SHIP-TBL; 

— Создается другое ссылочное значение/ 

— указывающее на таблицу тарифов. 

GET ( ACT-TBL ( TBL-CNT ). CATEGORY); 

end loop; 

GET(INPUT-REC.ITEM-NO / 7); 
while INPUT-REC.ITEM-NO /= 9999999 
loop 

GET(INPUT-REC.ITEM-WEIGHT/7); 

GET(INPUT-REC.ITEM-DISTANCE,7); 

GET(INPUT-REC.ITEM-SERVICE); 

SKIP-LINE; 

— Вставлен текст для поиска 

— ITEM-SERVICE. 

CRT—CNT != Ѳ; 

for I in 1 .. TBL-CNT 
loop 

if INPUT-REC.ITEM-SERVICE - 
ACT-TBL(TBL-CNT).CATEGORY 


-618 
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then 

CRT_CNT i* I; 
end if; 
end loop; 

— Здесь текст вставки заканчивается. Операто- 

— ры/ расположенные ниже/ выполняются только 

— в том случае/ когда значение ITEM-SERVICE 

— входит в одну из таблиц, 
if CRT-CNT /« О 

then 

for JUNK-DIST in reverse DISTANCE-CLASS 
loop 

if INPUT-REC.ITEM-DISTANCE > 

ACT-TBL(CRT-CNT).ACT-DIST-LIM(JUNK-DIST) 
then 

CURR-DIST-CLASS := JUNK-DIST; 
end if; 
end loop; 

for JUNK—WEIGHT in reverse WEIGHT-CLASS 
loop 

if INPUT-REC.ITEM-WEIGHT > 

ACT-TBL < CRT-CNT).ACT-WEIGHT-LIM(JUNK-WEIGHT) 
then 

CURR-WEIGHT—CLASS =« JUNK-WEIGHT; 
end if; 
end loop; 

INPUT-REC.ITEM-COST :* 

PRICES(ACT-TBL(CRT-CNT). 

CURR—RATES(CURR—DIST-CLASS / 

CURR-WEIGHT—CLASS) 

* PRICES(INPUT-REC.ITEM-WEIGHT) ); 
NEW-LINE; 

PUT(INPUT-REC.ITEM-COST . 7 , 2 ) ; 

end if; 

SKIP-LINE; 

GET(ITEM-NO); 
end loop; 

end ACCESS-SHIP-RATE; 


На рис. 3.2 показан возможный вид массива ссылочных переменных ACT_TBL, 
созданного для трех типов таблиц и для произвольного числа видов отправляемых 
грузов. 

3.1.5. Уточнения 

Как отмечалось ранее, при объявлении ссылочных типов допустимыми видами 
уточнений являются лишь уточнения дискриминантов и уточнения диапазонов 
индексов. Пусть, например, существует объявление 

type NAME_POINTER is access STRING (21 ..55); 

Здесь в объявлении ссылочного типа присутствует уточнение диапазона индексов. 

Если при объявлении задается доступ к неуточненному типу, то уточнение можно 
указать при создании объекта нужного типа с помощью генератора new. 




INPUT_REC 



ITEM_NO ITEM_WEIGHT ITEM-DISTANCE ITEM-COST ITEM-SERVICE 
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Рис. 3.2. Значения массива ссылочных переменных ACT_TBL для трех таблиц и тестовой строки 
входных данных. 


Пример. Пусть имеются объявления 

type LINE_POINTER is access STRING; 

CURR-LINE: LINE-POINTER; 

Тогда оператор 

CURR_LINE := new STRING; 

будет неправильным, так как STRING -неуточненный регулярный тип, а при создании 
объектов этого типа с помощью генератора new должно быть указано уточнение 
диапазона для индекса. Вместо этого следует, например, написать: 

CURR-LINE := new STRING (8 ..89); 
где уточнение присутствует. А вот другие примеры; 
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type JOB-DESCRIPTION is array (NATURAL rang* <>> 
of STRING (1 .. 10); 
type EMPLOYEE (JOB-NO : POSITIVE) is 
record 

L-NAME = STRING (1 .. 30); 

J08S-HELD < JOB-DESCRIPTION (1 .. JOB-NO); 
end record; 

type EMP-ROINTER is access EMPLOYEE; 

Здесь ссылочный тип был объявлен без уточнений, а в объявлении 
type EMP_CONSTR_POINTER is access EMPLOYEE (20); 
имеется уточнение дискриминанта. В заключение рассмотрим объявления: 

JOHN.PAUL: EMP.POINTER; 

MARY.LOU ; EMP_CONSTR_POINTER; 

Если есть такие объявления, то каждый раз при создании объекта типа EMP_POINTER 
следует указывать уточнение дискриминанта, например: 

JOHN_PAUL := new EMPLOYEE (5); 

Однако при создании объектов типа EMP_CONSTR_POINTER уточнение дискрими¬ 
нанта не задается:, 

MARY_L0U := new EMPLOYEE; 

Если уточнение указано при объявлении типа, то при создании объектов этого типа 
нельзя задавать уточнение еще раз. 

Программу ACCESS_SHIP_RATE можно было бы написать с использованием 
динамических массивов, а не ссылочных типов. Применение ссылочных типов будет 
оправданным, если в результате этого программа окажется более ясной, будет 
выполнять более общие функции, станет более надежной или позволит более эф¬ 
фективно использовать память. Эти преимущества станут еще более очевидными, 
когда решаемую задачу можно будет естественно представить в рекурсивной форме, 
что будет показано в следующем разделе. 

3.2. РЕКУРСИВНЫЕ ОБЪЯВЛЕНИЯ ССЫЛОЧНЫХ ТИПОВ 

Не существует ограничения для типов объектов, на которые указывает переменная 
ссылочного типа. Поэтому та компонента сложного объекта, на которую указывает 
некоторая переменная ссылочного типа, сама может являться переменной того же 
ссылочного типа. В этом случае требуется записать так называемое незавершенное 
объявление для нужного типа, к которому производится ссылка, за ним объявление 
соответствующего ссылочного типа и далее полное объявление для требуемого типа. 

3.2.1. Незавершенные объявления типа 

Незавершенное объявление типа в языке Ада имеет форму: 
type идентификатор возможная_дискриминантная_часть; 

Пример. Вот пример незавершенного объявления типа: 
type PAYROLL_REC; 

Далее могут следовать прочие объявления: 
type PAY_ACCESS is access PAYROLL REC; 
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Здесь переменные ссылочного типа PAY_ACCESS предназначены для доступа к 
объектам типа PAYROLL_REC. Далее опять могут следовать не относящиеся к 
примеру объявления. Потом помещается объявление: 

type PAYROLI _ REC is 

record 

EMP-NAME : STRING (1 .. 20); 

EMP-ID : STRING (1 ..9)/ 

EMP.PAY = FLOAT; 

EMP-NEXT : PAY-ACCESS; 

end record; 

Здесь компонента EMP_NEXT комбинированного типа PAYROLL_REC, к которому 
производится доступ с помощью ссылочной переменной типа PAY_ACCESS, является 
ссылочной переменной того же типа PAY_ACCESS. Далее располагаются объявления 
переменных: 

CURR.PTR, PREV_PTR : PAY_ACCESS; 

HOLD.REC: PAYROLL.REC; 

Покажем примеры корректных операторов, которые создают объекты типа 
PAYROLL_REC: 

CURR.PTR := new PAYROLL_REC; 

Эта строка создает объект типа PAYROLL_REC, на который указывает переменная 
CURR_PTR типа PAY^ACCESS. 



EMP_NAME EMP_ID EMP_PAY EMP-NEXT 



6 

Рис. 3.3. Объекты типа PAY_ACCESS. 

a -после первого выполнения оператора CURR RTR:=new PAYROLL_REC; 6 - после первого выполнения 
оператора CURR_PTR. EMP-NEXT: = new PAYROLL_REC. 

На рис. 3.3,a показаны значения различных компонент после выполнения этого 
оператора. Вот еще примеры: 

CURR-PTR . EMP-NAME := "JOHN ALEXANDER "; 

CURR-PTR . EMP-ID := "123456789“; 

CURR-PTR.EMP-PAY == 758.00; 

CURR-PTR.EMP-NEXT:= new PAYROLL-REC; 
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На рис. 3.3,6 показаны значения различных компонент, на которые ссылается 
указатель CURR-PTR, после выполнения приведенных выше операторов. 

Оператор 

PREV_PTR := CURR_PTR; 

выполняет подготовку к присваиванию переменной CURR_PTR нового значения. 
Присваивание выполняется операторами 
CURR-PTR := CURR-PTR . EMP-NEXT ; 

CURR-PTR . EMP-NAME == “EUGENE SORENSEN 
CURR_PTR.EMP_ID == "222222222"; 

CURR-PTR.EMP-PAY := 800.00; 

CURR-PTR.EMP-NEXT := new PAYPOLL-REC; 

HOLD-REC .= (“MARY MURPHY " / “555555555“/ 

850.00/ NULL); 

Обратите внимание на то, что переменная HOLD-REC типа PAYROLL_REC инициа¬ 
лизируется при помощи позиционного агрегата комбинированного типа. Присваивание 
завершается оператором 

CURR_PTR.EMP_NEXT.all := HOLD-REC; 

Структура, к которой обращается переменная ссылочного типа CURR_.PTR.EMP_ 
NEXT.all, проинициализирована содержимым переменной HOLD-REC. Однако было 
бы неверным написать: 

CURR_PTR.EMP_NEXT := H0LD_REC; 

поскольку значение переменной комбинированного типа нельзя присваивать перемен¬ 
ной ссылочного типа. 

Заметьте также, что к структуре, созданной первой, можно получить доступ через 
PREV-PTR, ко второй структуре-через PREV-PTR.EMP-NEXT и через CURR-PTR, а 
к третьей структуре-через CURR_PTR.EMP_NEXT. Итоговые значения переменных 
отображены на рис. 3.4. 

3.2.2. Взаимная зависимость 

Можно сказать, что объявления, подобные объявлению для типа PAY-ACCESS, 
называются рекурсивными объявлениями типов, так как в своем определении они 
ссылаются сами на себя. Можно ввести ссылочные типы, которые ссылаются друг на 
друга, установив тем самым взаимную зависимость. 


I JOHN ALEXANDER 1 123456789 \ 758.0 | ,| 

CURR-PTR ^— 

|eUGENE S0RENSEn|222222222{ 800.0 | | 

_ __ 

I MARY MURPHY |555555555| 850 | NULL \ 


Рис. 3.4. Окончательные значения объектов типа PAY_ACCESS. 
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Рис. 3.5. Значения переменных CURR_CEREAL и CURR_BOX до установления взаимной 
зависимости. 

Пример. Запишем два незавершенных объявления типа: 
type CEREAL; 
type PACKAGE_BOX; 

Далее можно записать 

type CEREAL.PTR is access CEREAL; 

type PACK__BOX_PTR is access PACKAGEBOX; 

Здесь объявляются два ссылочных типа, при помощи которых можно обращаться к 
типам, незавершенные объявления которых были даны вначале. Далее запишем: 
type CEREAL is 
record 

SUGAR-CONT : FLOAT; 

SALT_CONT : FLOAT; 

FIBER-CONT = FLOAT; 

VITAMIN—C—CONT : FLOAT; 

ADV-TYPE = STRING ( 1 .. 10 ); 

PACKING_INSTR : PACK_BOX_PTR; 
end record; 
type PACKAGE-BOX is 
record 

SHIP-VOLUME = FLOAT; 

SHIP-WEIGHT = FLOAT; 

SHIP-CONTENT = CEREAI_PTR; 

end record; 

Взаимная зависимость возникает здесь следующим образом. Тип CEREAL ссылается 
на тип PACKAGE_BOX через ссылочную переменную PACKING JNSTR, а тип 
PACKAGE_BOX ссылается на тип CEREAL через ссылочную переменную SHIP_ 
CONTENT. Дальше: 

CURR__CEREAL : CEREAL_PTR; 

CURR.BOX: PACK_BOX_PTR; 

А вот примеры операторов, в которых используется эта взаимная зависимость: 
CURR_CEREAL := new CEREAL; 

CURR_CEREAL.all ;= (0.08, 0.005, 0.02, 0.003, "DAVY CROCK", NULL); 

Здесь проинициализирована структура CURR_CEREAL.all. Продолжим: 

CURR_BOX := new PACKAGE_BOX; 

CURR_BOX.all := (25.00, 16.50, NULL); 

Пока две ссылочные переменные указывают на объекты, которые не ссылаются друг на 
друга (рис. 3.5). С помощью операторов: 






CURR—CEREAL- 


CTJRR_CEREAL. all _ 

I 0. 08 I 0. 005 I 0. 02 I 0. 003 | DAVY CROCK | 


1 ) 

I 25. О I 16. 50 I 


CURR_BOX. all , 


Рис. 3.6. Значения переменных CURR_CEREAL и CURR_BOX после установления взаимной 
зависимости. 


CURR_CEREAL.PACKING_INSTR := CURR_BOX; 
CURR_BOX.SHIP_CONTENT := CURR_CEREAL; 

устанавливается взаимная зависимость (рис. 3.6). 


3.2.3. Программа, использующая рекурсивное 
объявление типа 

Следующая программа иллюстрирует понятия рекурсивных определений типов и 
взаимной зависимости. Эта программа является модификацией программы GRADES 
из разд. 2.2.3. Пусть имеется несколько видов контрольных работ, каждый из которых 
обозначается пятисимвольной строкой, например МАТН1 для математики № 1. 
Информация, необходимая для оценки каждой контрольной работы, размещается в 
двух входных строках. Первая строка имеет формат: 

Позиции Данные 

1-5 Наименование предмета (МАТН1, 

ENGL5 и т.д.) 

6-7 Число вопросов в контрольной рабо¬ 

те (от 20 до 50) 

Вторая строка содержит последовательность цифр от 1 до 5. Количество этих цифр 
равно числу вопросов, указанному в первой строке. Цифры представляют собой 
номера правильных ответов. Это «ключи ответов». Признаком конца информации о 
ключах ответов служит строка, содержащая символы “ХХХХХ” в поле наименования 
предмета. 

Остальные строки входного файла содержат сведения об ответах студентов. 
В десяти начальных позициях каждой строки помещен личный номер студента, в пяти 
следующих позициях записано наименование предмета. Сами ответы (точнее номера 
выбранных студентом вариантов ответов) начинаются с позиции 16. Как и в перво¬ 
начальной версии программы GRADES, признаком конца последовательности строк с 
ответами служит запись, содержащая 9999999999 в качестве личного номера студента. 
Выходные данные программы такие же, как и раньше. Для каждой считанной строки с 
ответами студента отображается его фамилия и количество правильных ответов. 

Программа ACCESS GRADES 

with TEXT— 10; us* TEXT-IO; 
procedure ACCESS-GRADES is 

package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 



Ссылочные типы 


type CHOICES is range 1 .. 5; 
type POSSIBLE-QUESTIONS is range 1 .. 50; 
package CHO-IO is new INTEGER-10(CHOICES); 
use CHO-IO; 

package POSS-IO is new 

INTEGER-I0(POSSIBLE-QUESTIONS); 

use POSS-IO; 

DNO_QUESTIONS : POSSIBLE-QUESTIONS «- 50; 
type ANSWERS is array ( 1 .. DNO-QUESTIONS ) of 
CHOICES; 

type TEST-KEY; 

— Незавершенное об'явление типа. Оно необходимо 

— здесь для рекурсивного об'явления типа, 
type TEST—KEY-PTR is access TEST-KEY; 
type TEST-KEY is 

record 

SUBJ = STRINGd ..5); 

N0_QUESTI0NS = POSSIBLE-QUESTIONS; 
KEY-ANSWERS : ANSWERS; 

NEXT-TEST : TEST-KEY-PTR; 
end record; 

CURR-TEST/ START-TEST = TEST-KEY-PTR; 

GOOD-ANSWERS . INTEGER ; 
type IN-REC is 
record; 

STUDENT-ID = STRING ( 1 .. 10); 

SUBJECT-ID . STRING <1 .. 5 ); 
STUDENT-ANSWERS . ANSWERS; 
end record; 

CURR-REC : IN-REC; 
begin 

CURR-TEST new TEST-KEY; 

GET < CURR-TEST.SUBJ); 
while CURR-TEST.SUBJ /* “XXXXX" 
loop 

— Здесь строится список контрольных работ 
— Это односвязный список. На начало списка 

— указывает переменная START-TEST. 

GET ( CURR-TEST.NO-QUESTIONS,2); 

DNO-QUESTIONS ,= CURR-TEST.NO-QUESTIONS; 
SKIP.LINE; 

for I in 1 .. CURR-TEST.N0_QUESTI0NS 
loop 

GET(CURR-TEST.KEY-ANSWERS (I), 1); 
end loop; 

if START-TEST - NULL 
then 

— START-TEST равно NULL только после чтения 

— первой строки данных. Первое прочитанное 

— название контрольной работы заносится в 

— список. 

START-TEST := CURR-TEST; 

else 

CURR-TEST.NEXT-TEST == START-TEST; 

START-TEST := CURR-TEST 

— Каждая новая контрольная работа ставится 

— в начало списка/ она занимает это место 
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— до начала обработки следующей контроль- 

— ной работы, 
end if; 

SKIP-LINE; 

CURR-TEST := new TEST-KEY; 

GET < CURR-TEST.SUBJ); 
end loop; 

SKIP-LINE; 

GET ( CURR-REC.STUDENT-ID ); 
while CURR-REC.STUDENT-ID /= •"9999999999“ 
loop 

GET (CURR-REC.SUBJECT-ID); 

CURR-TEST := START-TEST; 
while CURR-TEST /= NULL or 

CURR-TEST.SUBJ /= CURR-REC.SUBJECT-ID 

loop 

— Поиск в списке предмета/ по которому 
— проводится контрольная работа. 
CURR-TEST CURR-TEST.NEXT-TEST; 
end loop; 

if CURRJ.TEST.SUBJ = CURR-REC.SUBJECT-ID 
then 

— Если наименование контрольной работы 

— правильное/ то будет найдено название 

— предмета. В противном случае такого 

— названия предмета нет в списке. 
GOOD-ANSWERS .=0; 

for J in 1 .. CURR-TEST.NO-QUESTIONS 
loop 

GET(CURR-REC.STUDENT-ANSWERS(J) / 1); 
if CURR-REC.STUDENT-ANSWERS(J) = 
CURR-TEST.KEY-ANSWERS (J) 
then 

GOOD-ANSWERS := GOOD-ANSWERS + 1 ; 
end if; 
end loop; 

NEW-LINE; 

PUT ( " The number of good answe rs is “ ); 
PUT ( GOOD-ANSWERS, 5); 

PUT ( “ for the id “); 

PUT ( CURR-REC.STUDENT-ID ); 

NEW-LINE; 

else 

PUT<" No such subject: **); 

PUT < CURR-REC.SUBJECT-ID); 

end if; 

SKIP-LINE; 

GET ( CURR-REC.STUDENT-ID ) ; 
end loop; 

end ACCESS-GRADES; 


На рис. 3.7 показан список ключей ответов для трех предметов (МАТН1, ENGL1 и 
СОМР1) и дан пример ответов студента в виде записи CURR_REC. 



Ссылочные типы 



Рис. 3.7. Тестовые данные: список контрольных работ и строка с ответами студента. 

3.2.4. Программа, в которой используется 
взаимная зависимость 

В следующей программе дается пример взаимной зависимости, реализованной с 
помощью ссылочных типов. Программа выводит список оценочных баллов для 
лошадей, участвующих в предстоящем заезде на скачках. 

Входная информация задается в парах строк. В первой из них приводятся данные 
о лошади, а во второй-о жокее. 

Информация о лошади имеет такой формат: 


1-10 Кличка лошади 

11-13 Наилучший результат (в с) 

14-15 Число побед в последних десяти за¬ 

ездах 

Данные о жокее вводятся в следующем формате: 

Позиции Данные 

1-10 Фамилия жокея 

11-13 Вес жокея (в фунтах) 

14-15 Число побед в последних десяти за¬ 

ездах 

Балл, который получает лошадь, будем вычислять в соответствии с выражением 
балл = (наилучший_результатлошади) — 

5 * (числолобед-лошади) — 
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5 * (число_побед_жокея) + 

2 * (вес_жокея) 

(без какого-либо «научного» обоснования примененной формулы). 

В заездах участвует заранее неизвестное число лошадей. Признаком конца данных 
служит запись с именем лошади CALIGULA. Список лошадей, наездников и баллов 
следует выдать в возрастающем (для баллов) порядке. 


Программа RACES 

with TEXT_IO; use TEXT-IO; 
procedure RACES is 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 
type HORSE; 
type JOCKEY; 

— Незавершенные определение типов требуются для 

— введения двух взаимно зависимых типов, 
type HORSE-PTR is access HORSE; 

type JOCKEY-PTR is access JOCKEY; 
type HORSE is 
record 

H-NAME = STRING < 1 .. 1Ѳ ); 

MIN-TIME : INTEGER ; 

MIN-RACE . INTEGER ; 

RIDER : JOCKEY-PTR; 

— Переменная RIDER указывает на об'акты типа 
— JOCKEY. 

PAIR-RANK : INTEGER; 

NXT-HORSE : HORSE-PTR; 
end record; 
type JOCKEY is 
record 

J-NAME : STRING ( 1 .. 10 ); 

J_WEIGHT . INTEGER; 

J-WINS , INTEGER; 

— Переменная J_WI/YS указывает на 
— об ' екты типа HORSE. 

H-TO-RIDE : HORSE-PTR; 
end record; 

CURR-HORSE-PTR, TOP-HORSE-PTR / ANY-HORSE-PTR / 
PREV-HORSE-PTR = HORSE-PTR; 

CURR-JOCKEY-PTR : JOCKEY-PTR; 

begin 

CURR-HORSE-PTR new HORSE; 

GET(CURR-HORSE-PTR.H-NAME); 
awhile CURR-HORSE-PTR.H-NAME /- "CALIGULA " 
loop 

GET(CURR-HORSE-PTR.WIN-TIME, 3 ); 

GET(CURR-HORSE-PTR.WIN-RACE,2); 

SKIP-LINE; 

CURR-JOCKEY-PTR == new JOCKEY; 

GET(CURR_JOCKEY_PTR.J-NAME); 

GET(CURR-JOCKEY-PTR.J-WEIGHT /3) ; 

GET(CURR-JOCKEY-PTR.J-WINS,2); 

SKIP-LINE; 
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CURR_HORSE_PTR.RIDER CURR-JOCKEY-PTR; 

CURR_JOCKEY-PTR.H_TO_RIDE := CURR_HORSE_PTR; 

— Эти присваивания устанавливают взаимную 

— зависимость. 

CURR_HORSE_PTR .РА IR-RANK ,= 

CURR_HORSE_PTR . WIN_TIME - 
5 * (CURR_HORSE_PTR.WIN-RACE + 

CURR-JOCKEY-PTR.J-WINS ) + 

2 * CURR-JOCKEY-PTR.J_WEIGHT; 

— После вычисления оценки в баллах/ пара 

— лошадь-жокей помечается в список/ Форми- 

— руемый в порядке возрастания баллов. 

ANY-HORSE-PTR :* Т OP-HORSE-P Т R ; 
while ANY-HORSE-PTR.PAIR-RANK < 

CURR-HORSE-PTR.PAIR-RANK 

or 

ANY-HORSE-PTR /-NULL 
loop 

PREV—HORSE-PTR .» ANY-HORSE-PTR; 

ANY-HORSE-PTR := ANY-HORSE-PTR.NXT-HORSE; 
end loop; 

if ANY-HORSE-PTR - TOP-HORSE-PTR 
then 

CURR-HORSE-PTR.NXT-HORSE =- TOP_HORSE_PTR; 

TOP-HORSE-PTR : = CURR-HORSE-PTR;- 
else 

PREV-HORSE-PTR.NXT-HORSE == CURR-HORSE-PTR; 
CURR-HORSE-PTR.NXT-HORSE == ANY-HORSE-PTR; 
end if; 

GET(CURR-HORSE-PTR.H-NAME); 
end loop; 

ANY_HORSE_PTR ,= TOP-HORSE-PTR; 

— Теперь отобразим список в порядке возрастания 
— оценочных баллов, 
while ANY-HORSE-PTR /= NULL 
loop 

PUT(ANY-HORSE-PTR.H-NAME); 

CURR-JOCKEY-PTR == ANY-HORSE-PTR.RIDER; 

PUT < CURR-JOCKEY-PTR.J-NAME); 

PUT(ANY-HORSE-PTR.PAIR-RANK); 

ANY-HORSE-PTR ,= ANY-HORSE-PTR.NXT-HORSE; 
end loop; 
end RACES; 

Пример возможных итоговых значений для трех лошадей и трех жокеев показан на 
рис. 3.8. 

Полностью оценить преимущества, предоставляемые рекурсивными объявления¬ 
ми типов и взаимной зависимостью, можно только после изучения рекурсивных 
вызовов подпрограмм, рассмотренных в гл. 5. 


УПРАЖНЕНИЯ 

1. Измените программу ACCESS .CHIP RATE так, чтобы сохранялись итоговые данные о 
видах отгруженных товаров, классифицированные по способу доставки (т. е. по наименованию 
таблицы). После обработки всех позиций товаров следует вывести эти итоговые данные и 
соответствующие названия таблиц. 




2. Модифицируйте программу ACCESS_GRADES так, чтобы для каждого предмета в 
возрастающем порядке строился список студентов и их оценок. Используйте ссылочные типы. 
После ввода данных о всех студентах следует вывести для каждого предмета список студентов в 
порядке возрастания полученных ими оценок. 

3. Измените программу RACES таким образом, чтобы для объектов типа JOCKEY была 
добавлена дополнительная компонента, указывающая на объект, того же самого типа. Эту 
компоненту нужно использовать для сортировки объектов типа JOCKEY по параметру 
J_WEIGHT, характеризующему вес жокея. На выходе должны быть получены два вида списков 
наездников и их лошадей. Порядок следования данных в этих списках вначале должен со¬ 
ответствовать вычисленным баллам, а потом-весам жокеев. 
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Прочие операторы языка Ада 
и комбинированные типы с вариантами 

4.1. ПРОСТЫЕ И СОСТАВНЫЕ ОПЕРАТОРЫ АДЫ 


Как отмечалось в гл. 1, в языке Ада есть два вида операторов: простые и 
составные. Если оператор не содержит в себе иных операторов, то это -простой 
оператор. Составные операторы, напротив, содержат в своем составе другие опера¬ 
торы. 

До сих пор мы пользовались только двумя простыми операторами: операторами 
присваивания и операторами вызова процедур. Составные операторы, которые мы 
употребляли в первых трех главах-это операторы if (если) и две разновидности 
оператора цикла (loop): оператор for (для) и оператор while (пока). 

В данном разделе будут рассмотрены другие простые операторы: пустой оператор 
(null), оператор выхода (exit) и оператор перехода (goto). Еще об одном простом 
операторе, операторе возврата (return), будет рассказано в следующей главе-там, где 
будут даны сведения о подпрограммах. В число остальных простых операторов языка 
Ада входят оператор прекращения задачи (abort), оператор задержки (delay), оператор 
обращения ко входу (entry call). (С ними читатель познакомится в гл. 10, посвященной 
параллельным процессам.) В гл. 11 излагается материал об исключительных ситуаци¬ 
ях, там будет описан оператор возбуждения исключительных ситуаций (raise). Кроме 
того, существует специальный оператор включения кода (code statement), связанный с 
реализацией операторов языка низкого уровня (возможно, уровня языка ассемблера). 

В данном разделе читатель познакомится с двумя новыми составными оператора¬ 
ми: с оператором выбора (case) и с оператором блока (block statement). Будет, также 
представлена третья (и последняя) разновидность оператора цикла. В языке Ада есть 
еще два составных оператора: оператор приема (accept) и оператор отбора (select). Они 
обсуждаются в гл. 10. 

4.1.1. Оператор выбора case 

Оператор case обеспечивает выбор и исполнение только одной из нескольких 
возможных альтернатив в зависимости от значения выражения, принадлежащего к 
дискретному типу. Форма оператора выбора такова: 

case селектирующее^выражение is 

when условие_выбора =) последовательность_операторов 
— Здесь могут располагаться другие альтернативы, 
when условие выбора =) последовательность_ операторов 
end case; 

Селектирующее_выражение, стоящее после зарезервированного слова case, должно 
быть дискретного типа, т.е. значение, получаемое в результате вычисления этого 
выражения, должно принадлежать к целому или перечисляемому типу. В зависимости 
от значения селектирующего_выражения будет выполняться одна из последова- 
тельностей_операторов, располагающихся после условий_выбора. Конкретно, будет 
выполнена та последовательность_операторов, условие_выбора для которой согласу- 
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ется с текущим значением селектирующего_выражения, получаемым при выполнении 
программы в данный момент времени. 

Условие_выбора, стоящее после зарезервированного слова when, должно пред¬ 
ставлять собой статическое выражение дискретного типа или статическое выражение с 
дискретным диапазоном. Можно также в качестве последней по порядку альтернативы 
использовать условие_выбора, обозначаемое зарезервированным словом others (дру¬ 
гие). Эта альтернатива охватывает все остальные возможные значения селектирую- 
щего_выражения, не заданные в предыдущих условиях_выбора. Кроме того, в каждом 
условии_выбора разрешается задавать несколько условий, разделенных символом |. В 
этом случае, если хотя бы одно из указанных в альтернативе условий соответствует 
значению селектирующего ^выражения, то будет выполняться выбираемая этим усло¬ 
вием последовательность_операторов. 


Пример. Пусть переменная SOME_CHAR относится к типу CHARACTER. Тогда 
можно написать такой оператор выбора: 


case SOME-CHAR is 
when 'A' .. 'Z' => 

when 'a' 'z' => 

when 'O' .. '9' => 

when ' + ' I => 

when others => 

end case; 


PUTC Uppercase letter *'); 
PUT<“ Lowercase letter "); 
PUTC Digit “>; 

PUTC Signs “); 

PUTC Other characters “); 


После зарезервированного слова case стоит простейшее выражение SOME_CHAR, 
принадлежащее к перечисляемому типу CHARACTER. Ясно, что CHARACTER -это 
дискретный тип. Перечислим представленные в этом операторе условия_выбора. 


Условие 

'А' .. 'Z' 
'а' .. 'z' 
'О' .. '9' 


Others 

(Прочие) 


Описание 

Статический диапазон 
Статический диапазон 
Статический диапазон 

Символьный литерал (элементарное выражение) 
Символьный литерал (элементарное выражение) 
Охватывает все остальные значения, которые мо¬ 
жет принимать переменная SOME_CHAR, не 
входящие в предыдущие условия_выбора 


Заметьте, что 

when ' + ' I => PUT (“Signs”); 

означает, что если SOME_CHAR равно ' + ' или ' —то будет выведено сообщение 
“Signs” («Знаки»). 

Для любой пары альтернатив, входящих в один и тот же оператор выбора case, 
нельзя записывать в условиях_выбора альтернатив одинаковые значения. Например, 
оператор 

case SOME-CHAR is 

when 'A' .. 'M' => PUTC First half “); 

when 'L' .. 'Z' => PUTC Second half “) ; 

end case; 

ошибочен, так как статические диапазоны 'А' .. 'М' и 'L' .. 'Z' пересекаются, в них 
входят общие значения 'L' и 'М'. 

Разумеется, вместо оператора выбора case всегда можно употребить условный 
оператор if. Так, первый оператор case данного примера эквивалентен такому услов- 
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ному оператору: 

if SOME-CHAR in 'А' .. '2' 
then 

PUT(" Uppercase letter "); 
elsif SOME-CHAR in 'a' .. 'z' 
then 

PUT(“ Lowercase letter "); 
elsif SOME-CHAR in 'O' .. '9' 
then 

PUT<" Digit ">; 

elsif SOME-CHAR = '+' or SOME-CHAR = '-' 
then 

PUT(‘* Signs ">; 
else 

PUT(” Other characters "); 
end if i 


Зачастую, как свидетельствует этот пример, оператор выбора case более нагляден, 
чем условный оператор if. Это особенно справедливо при большом количестве 
дискретных альтернатив. 

Обратите внимание на то, что совокупность значений выражений в условиях- 
вьібора должна покрывать все возможные значения селектирующего_выражения, 
стоящего после зарезервированного слова case. Поэтому, например, было бы ошибкой 
удалить из предыдущего примера оператор выбора альтернатив others. 


4.1.2. Метки 

Метки в программах на языке Ада можно располагать перед любым простым и 
составным оператором. Метка-это идентификатор, заключенный в двойные угловые 
скобки. Например, можно написать: 

«JUSTJN.CASE» if I < О 
then I := —I; end if; 

Здесь метка «JUST_JN_CASE» идентифицирует оператор if. Перед оператором можно 
поставить и несколько меток. Будет правильной такая строка: 

«GOOD» «BON» «GUT» К := К + 1; 

Метки в языке Ада явно не объявляются. Считается, что они объявлены неявно в 
конце декларативной части самого внутреннего тела подпрограммы, содержащего 
эти метки. Другим неявно объявляемым объектом, с которым мы уже имели дело, 
является параметр_цикла в операторе for. Однако параметр_цикла неявно объявлялся 
как локальная переменная оператора цикла. Поэтому параметр_цикла известен в более 
узкой области программы, чем метка. Здесь есть два аспекта. Во-первых, метка 
известна во всем (самом внутреннем) охватывающем ее теле подпрограммы, а 
параметр_цикла известен только внутри оператора цикла. Во-вторых, неявное объявле¬ 
ние метки вступает в силу перед началом выполнения каких-либо операторов под¬ 
программы, а параметр цикла существует только во время выполнения оператора 
цикла. Как будет показано в гл. 7 и 10, метки можно также применять в телах пакетов 
и задач. 
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4.1.3. Оператор перехода goto 

Передача управления на помеченный оператор выполняется с помощью оператора 
перехода goto. Общая форма оператора перехода такова: 

goto имя_метки; 

Например: 

goto GOOD; 

-правильный оператор перехода. 

Сфера применения оператора перехода в языке Ада довольно ограничена. Этот 
оператор не должен передавать управление из программы или вовнутрь ее. Не 
разрешается также передача управления внутрь составного оператора, к примеру 
внутрь операторов if, case или loop. Запрещается передача управления по оператору 
goto от других программных сегментов-пакетов или задач. Внутри оператора if или 
case оператор перехода goto не может передавать управление от одной альтернативы к 
другой. Кроме того, есть и другие ограничения, касающиеся задач и обработки 
исключительных ситуаций. Эти ограничения будут рассмотрены в гл. 10 и 11. 

Пример. Нижеследующие строки программы иллюстрируют некоторые из приведен¬ 
ных ограничений. Предполагается, что все переменные принадлежат к предопределен¬ 
ному типу INTEGER (Целый). 

«JOHN» if I = J 
then 

«MARY» К := 2/ 
case J - 3 is 

when 1 .. 5 -> L := 5; 

«LOU» К .= L * 2/ 
when 6 .. 10 *> L : = 10/ 

— Здесь нельзя размещать оператор 
— GOTO LOU/ поскольку запрещается переход 

— от одной альтернативы оператора case 

— к другой. 

when 0 I 13 => L := 1/ 
when others => L := О; 
end case; 
else 

«ВОВ» J := abs (I); 
if J = L 
then 

L == L * L; I := I + 1; 

— Здесь можно поместить оператор GOTO BOB: 

— он выполняет выход из внутреннего опера- 

— тора IF. Оператор GOTO JOHN также будет 

— правилен. Оператор вида GOTO MARY неве- 

— рен/ так как он производит переход от 

— одной ветви оператора if к другой. Опера- 

— тор GOTO LOU недопустим/ поскольку он 

— передает управление внутри составного 

— оператора, 
end if; 

end if; 
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Одной из причин, по которой в язык Ада включен оператор перехода, является 
необходимость перевода на этот язык программ, написанных на других языках 
программирования. Пользование оператором goto, однако, должно быть оправданным 
и его следует тщательно контролировать. 

4.1.4. Пустые операторы 

В Аде есть пустой оператор (null statement), действие которого заключается в 
передаче управления следующему за ним оператору. Вот его формат: 

null; 

Одно из возможных мест применения пустого оператора-это операторы выбора. 
Вспомните, что условия выбора должны охватывать все возможные значения селекти¬ 
рующего выражения. Оператор null в этом случае служит для обозначения отсутствия 
выполнения каких-либо действий для некоторых альтернатив. Например, полагая, что 
I и J- целые, можно записать: 

case I is 

when 1 => J 

when 3 => J := 2/ 

when 518 => J := 3; 

when others => null; 

end case/ 

4.1.5. Операторы цикла, в которых не указаны 
условия повторения 

В гл. 1 были рассмотрены циклы while (пока), а в гл. 2-циклы for (для). Здесь 
вводится самая простая форма оператора цикла, представляющая собой бесконечный 
цикл. Она такова: 

loop 

— Здесь располагаются какие-то операторы, 
end loop; 

В данном случае цикл будет выполняться бесконечно, если только какой-нибудь из 
операторов, расположенных внутри его, не передаст явно управление за пределы цикла. 
Среди прочих операторов языка Ада, которые могут передавать управление за пределы 
цикла, можно назвать оператор перехода goto и оператор выхода exit, который будет 
рассмотрен ниже. 

4.1.6. Именованные операторы цикла 

Каждому оператору цикла можно присвоить некоторое имя. Это имя, если оно 
присутствует, нужно задавать в начале и в конце оператора цикла. Имя цикла-это 
идентификатор, за которым стоит двоеточие 1 ’. Например, можно (опять-таки в 
предположении, что I и J- целые переменные) написать: 

ONEJ.OOP loop 

-Здесь располагаются операторы Ады. 
end loop ONEJ.OOP; 


11 Не путать имя цикла с меткой! В отличие от метки на имя цикла нельзя выполнить 
переход по оператору goto.- Прим, перев. 
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Для цикла while можно записать: 

TWO_LOOP: while I >0 
loop 

J := J + I; 

I := 1-1; 

end loop TWCLLOOP; 

Цикл for может быть следующим: 

THREEJ.OOP: for I in 3 .. 10 loop 

J : = J + I; 

end loop THREE.LOOP; 

Имя цикла (например, THREE_LOOP) по аналогии с метками Ады объявляется 
неявно. Поэтому имя цикла, называемое также идентификатором цикла, считается 
объявленным в конце декларативной части самого внутреннего тела подпрограммы 
(задачи или пакета), содержащего это имя (см. гл. 7 и 10). Обратите внимание на то, 
что хотя и идентификатор цикла (например, THREE LOOP), и параметр цикла 
(скажем, I из предыдущего примера) объявляются неявно, они создаются в разные 
моменты выполнения программы. Кроме того, параметр цикла известен только внутри 
оператора цикла. 


4.1.7. Операторы выхода exit 

Оператор выхода (exit statement) языка Ада применяется для организации за¬ 
вершения того цикла, в который он входит. Оператор выхода exit имеет следующие 
формы: 

exit; 

exit when условие; 

Если циклы помечены, то оператор выхода принимает вид 
exit имя_цикла; 
exit имя_цикла when условие; 

Условие, заданное в операторе exit, вычисляется, и если оно истинно, то осуществляется 
выход из цикла. Если условие отсутствует, то происходит безусловный выход из цикла. 

Если имя_цикла в операторе exit не указано, то происходит выход из самого 
внутреннего цикла, содержащего этот оператор. Если имеется несколько вложенных 
помеченных циклов, то можно задавать тот уровень, на который передает управление 
оператор exit, указывая в нем имя того цикла, выход за пределы которого необходимо 
произвести. 

Пример. Следующие строки программы иллюстрируют использование операторов 
выхода. Будем считать, что все переменные-целые. 

АЙ: ГОГ I ІП 1 .. 10 
loop 

case J is 
when 1 => 

L Oi 

BB: for К in 11 .. 20 
loop 

L := I * К + L l 
exit when L > К * К; 
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— Цикл с идентификатором ВВ вложен в цикл 

— с идентификатором НА. В операторе выхо- 

— да имя цикла не укавано/ и поэтому ес- 

— ли будет истинно условие L > К * К/ то 

— произойдет выход из цикла с именем ВВ/ 

— а затем будет выполнен оператор 

— L : ж L * L. Здесь используется оператор 

— выхода/ расположенный в пределах цикла 

— for . 
end loop ВВ; 

when 5 I 8 => 

L I / 

CC : while L < 89 
loop 

exit АЙ when LL = 55; 

; — Цикл с именем CC вложен в цикл с 

— идентификатором НА. В операторе 

— выхода указано имя цикла НН. По- 

— этому если будет истинным усло- 

— вие L = 55/ то произойдет выход 

— из цикла НН/ а потом выполнится 
-— оператор К := І_ / 10Ѳ. Если этот 

— оператор выхода никогда не будет 

— выполняться/ а оператор цикла 

— закончится/ то после окончания 

— цикла будет выполнен оператор 
— L := L * L. 

— Это - пример оператора выхода/ 

— расположенного в пределах цикла 

— while . Обратите внимание на 

— то/ что оператор выхода может 

— располагаться в любом месте опе- 

— ратора цикла. 

L == 2 * I + L ; 
end loop CC; 
when others => 

L ; = 0; 

DD : loop 

L i= L + I + J; 
exit DD when L > 144; 

— Обратите внимание на то/ что 

— было бы неправильным написать 

— "exit DD when L > 144"/ так 

— как цикл с именем DD не вло- 

— жен в цикл ВВ. Это - пример 

— оператора выхода/ расположен- 

— ного в пределах простейшего 

— (бесконечного) оператора 

— цикла, 
end loop; 

end case; 

L := L * L ; 
exit when L > 8000; 
end loop AH; 

= L / 100 ; 


К 
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4.1.8. Операторы блока 

В заключение введем еще один составной оператор -оператор блока (block 
statement). Полная форма этого оператора такова: 
идентификатор_блока: 
declare 

—Здесь даются объявления. 
begin 

—Здесь помещаются операторы, 
end идентификатор_блока; 

Наличие идентификатора_блока и декларативной части необязательно. 

Пример. Блок без идентификатора: 
declare 

I : INTEGER; 
begin 

I := J; J := К; К := I; 

end; 

Блок без декларативной части: 
begin 

I := 100; 

end; 

Блок с идентификатором и декларативной частью: 

EXTRA: 

declare 

I : INTEGER := 100; 
begin i 

if I > J then J : = J + I; end if; 
end EXTRA; 

Объекты, объявленные в данном блоке, (например, I в блоке с именем EXTRA), 
локальны по отношению к этому блоку, т.е. они неизвестны в остальной части 
подпрограммы, содержащей этот блок. 

Блок выполняется последовательно. Вначале обрабатывается его декларативная 
часть. Термин «обрабатывается» относится к числу предпочтительных терминов языка 
Ада. Он обозначает те действия, которые выполняются над объявлениями. Дальней¬ 
шие подробности будут приведены в гл. 6. Затем выполняются операторы, входящие в 
блок. Память, требуемая для операторов, содержащихся в блоке, выделяется во время 
обработки его объявлений. Выделение памяти происходит каждый раз заново при 
выполнении блока. Таким образом, этот процесс может осуществляться многократно. 

Одна из сфер применения операторов блока связана с обработкой исключительных 
ситуаций (см. гл. 11). 

4.1.9. Программа, в которой используются 
оператор выбора case и оператор выхода exit 

Завершим этот раздел примером программы, в которой употребляются операторы 
case и exit. Здесь используется также еще одна подпрограмма из пакета ТЕХТ_ІО- про¬ 
цедура GET_LINE, которая считывает входную строку, содержащую данные, при¬ 
сваивает ее переменной типа STRING и подсчитывает количество прочитанных 
символов. Таким образом, процедура GET_LINE имеет два аргумента: имя строки и 
имя целой переменной-счетчика введенных символов. 
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В каждой входной записи размещаются фамилия и номер телефона. Вначале идет 
фамилия, а потом (через запятую)-номер телефона. Номера телефонов состоят из 
десяти цифр и/или букв и могут иметь различный формат. Они могут состоять целиком 
из десяти цифр и включают телефонный код местности, например 2125551212. 
В обозначения номеров могут быть вставлены дефисы, например 212-555-1212. Вместо 
некоторых цифр могут стоять буквы, например 212jkllAlB, что эквивалентно 
2125551212 1 ». 

Фамилии 21 могут быть представлены двумя способами. В первом формате за 
первым именем следуют по крайней мере один пробел, затем необязательный инициал, 
соответствующий среднему имени, и точка. Далее идет по меньшей мере один пробел и 
затем последнее имя. Во втором формате вначале располагается последнее имя, за ним 
запятая, затем пробел, потом необязательный инициал среднего имени с точкой и в 
конце первое имя (после пробела). Первое и последнее имена и инициал среднего имени 
состоят из букв обоих регистров. В именах могут встречаться апострофы и тире, 
например Robbe-Grillet и O’Hara. 

Вот-примеры входных строк: 

John S. Burundi, 213-9AB-COOL 

Christensen, Paul, 3129129292 

Kandisky, F. Richard, 914-abcabcd 

Признаком конца данных служит строка, содержащая только символы XX. 

Выводятся строки с правильными фамилиями абонентов и номерами их телефо¬ 
нов. При этом печатаются только первое и последнее имена (буквами верхнего 
регистра) и телефонный номер с использованием только цифр и двух дефисов. Первое и 
второе имена и номер телефона отделяются друг от друга одним пробелом. Если в 
строке неверно записаны номер телефона или фамилия (например, если в номере 
слишком мало цифр или в имена входят специальные символы), то входную строку 
следует распечатать без изменений, сопроводив ее сообщением вида «неверный номер 
или фамилия». 

Вот пример выходной информации с использованием приведенных выше фамилий: 

JOHN BURUNDI 213-922-2665 

RICHARD KANDISKY 914-222-2223 

Связь букв и цифр в номерах телефонов следующая: с каждой цифрой (от 2 до 9 
включительно) ассоциируется группа латинских букв. С цифрой 2, например, связаны 
буквы АВС, а с цифрой 9-WXY. 

Программа NAME-PHONE 

with TEXT -ІО; им ТЕХТ-ІО; 

procedure NAME-PHONE is 
LINE-LN . NATURAL i 

— Вспомните/ что NATURAL - это предопределен- 

— ный подтип/ имеющий в качестве исходного 

— тип INTEGER. Значение этого подтипа лежат 

— в пределах от О до INTEGER'LAST. 

F-NAME-LN/ L-NAME-LN, PHONE-LN . NATURAL/ 

— Эти переменные несут информацию о 


11 В США буквы в этих обозначениях служат эквивалентом цифр,- Прим, перев. 

2) В переводе употребляется слово «фамилия» для полной идентификации человека. В США 
у человека может быть «первое имя» (аналог нашего имени), так называемые «среднее имя» и 
«последнее имя» (аналог нашей фамилии).- Прим, перев. 




104 


Глава 4 


— количестве символов в первом имени/ 

— среднем инициале/ фамилии и номере 

— телефона. 

INP-LINE STRING! 1 .. LINE—LN) ; 

— Вспомните/ что, если LINE-LN = = Q, то 

— INP-LINE станет массивом с пустым 

— диапазоном индексов. 

WRK-LINE : STRING! 1 .. LINE-LN); 

— Эта строка используется при внесе- 

— нии изменений в исходную строку. 

F-NAME : STRING !1 .. F-NAME-LN); 

— Здесь будет записано первое имя/ 

—— если только оно правильно. 

I_ NAME : STRING! 1 .. L-NAME-LN) ; 

— Сюда будут помечены фамилии. 

PHONE-NO = STRING! 1 .. PHONE-LN ); 

— Здесь будут размечаться телефонные 

— номера. 

NO-COMMAS : INTEGER; 

— Значение этой переменной равно 

— количеству запятых в строке. 

BAD-DATA : BOOLEAN; 

— Эта переменная будет иметь значение 

— TRUE/ если в данной строке представлены 

— неправильные данные. 

STRT-POS / END-POS = NATURAL ; 

— Эти переменные содержат номер началь- 

— ной и конечной позиции имен или номе- 

— ров телефонов. 

DIGIT-CT , CURR-DIG . INTEGER; 

— Это - счетчики. Во всех процедурах/ 

— приведенных далее/ используется пере- 

— менная WRK-LINE . 

procedure LOW_TO_UPPER_N_CT_COMMAS is 
begin 

— Преобразуем каждую букву нижнего 

— регистра в букву верхнего регистра и 

— подсчитаем количество запятых. Одна 

— запятая означает/ что вначале распо- 

— лагается первое имя; две запятые - 

— то/ что вначале располагается фамилия; 

— иное количество запятых свидетельству- 

— ет об ошибке. 

N0-C0MMAS О; 

for I in 1 .. LINE-LN 
loop 

case WRK_LIN£iI) is 
when 'a' .. 'z' ■> 

WRK-LINE!I) CHARACTER'VAL! 
CHARACTER'POS('A') - 
CHARACTER'POS!'a') + 

CHARACTER'POStWRK-LINE!I) )); 

— Здесь выполняется преобразование 

— буквы от нижнего регистра к верх- 

— нему. Разница в относительной по- 

— зиции 'А' и 'а' будет и разницей 

— между положением любой другой 
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— буквы нижнего регистра и соответ- 

— ствуюцей ей буквой верхнего реги- 

— стра. Вспомните/ что строки - это 

— массивы предопределенного перечи- 

— сляемого типа CHARACTER. 

when => NO-COMMAS == NO—COMMAS+1; 

when others => NULL; 
end case; 
end loop; 

end LOW—TO—UPPER—N-CT-COMMAS; 
procedure ICNORE-LEAOING-SPACES is 

— Эта процедура устанавливает значение 

— переменной STRT-POS / равное номеру 

— позиции в строке первого символа/ 

— отличающегося от пробела, 
begin 

for I in 1 .. LINE-LN 
loop 

STRT-POS .= I; 

exit when WRK-LINE(I) /= ' '; 
end loop; 

end IGNORE-LEADING-SPACES; 
procedure FIND_NEXT_SP_OR_COMMA is 

— Эта процедура устанавливает значение 

— переменной END-POS / равное номеру 

— позиции последнего символа/ не равно- 

— го пробелу или запятой и расположен- 

— ного после STRT-POS. 
begin 

END-POS .= STRT_P0S; 
for I in STRT-POS .. LINE-LN 
loop 

exit when WRK_L1NE(I) = ' ' or 
WRK—LINE(1) = '/'; 

END-POS := I; 
end loop; 

end FIND_NEXT_SP_OR-COMMA; 
procedure PLACE-SPACES is 

— Эта процедура заменяет символы/ распо- 

— ложенные между STRT-POS и END-POS, на 

— пробелы и заменяет первую встреченную 

— запятую на пробел. Она останавливает- 

— ся после первого встреченного символа/ 

— не равного пробелу и расположенного 

— после END-POS. 
begin 

for I in STRT-POS .. END-POS 
loop 

WRK—LINE<I) :» ' '; 
end loop; 

for I in END-POS + 1 .. LINE-LN 
loop 

if WRK—LINE( Г) = 
then 

WRK-LINE(I) := ' '; 
exit; 
end if; 

exit when WRK_LINE<I) /= ' '; 
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end loop; 
end PLACE-SPACES; 
procedure IS-CORRECT-NAME is 

— Эта процедура проверяет то/ что 

— апострофы или черточки/ входящие в 

— состав имени/ окружены буквами. 

— Если это не так/ то переменная 

— BAD-DATA получает значение TRUE, 
begin 

for I in STRT—POS .. END-POS 
loop 

case MRK-LINE(I) is 

when 'A' .. 'Z' -> NULL 
when I '" »> 

if I * STRT—POS or I » END-POS 
— Разрешается наличие в имени 

— черточек и апострофов/ но 

— только окруженных другими 

— символами, 
than 

BAD-DATA TRUE; 
exit; 

— Эта строка - оператор 

— безусловного выхода, 
end if; 

when others -> BAD DATA TRUE; 
exit; 

end case; 

end loop; 

end IS-CORRECT-NAME; 

procedure XTR-N-VAL-FIRST-NAME is 

— Эта процедура проверяет первое имя/ выделя- 

— ет его и записывает в F-NAME . Если в имени 

— обнаружен неверный символ/ то переменная 
— BAD-DATA получает значение TRUE. 

begin 

ICNORE-LEADING-SPACES; 

FIND_NEXT_SP_OR_COMMA; 

IS-CORRECT_NAME; 

L-NAME-LN :* END-POS - STRT-POS + 1; 

L-NAME WRK-LINE ( STRT-POS .. END-POS ) ; 

— Это - оператор присваивания вырезки. 
PLACE-SPACES; 
end XTR_N_VAL_FIRST-NAME; 

procedure XTR-N-VAI_MDI—INIT is 

— Эта процедура ицет средний инициал/ 

— за которым следуют точка и пробел или 

— запятая. Если инициал найден/’ то эти 

— символы заменяются пробелами; в про- 

— тивном случае переменная WRK-LINE 

— не изменится, 
begin 

IGNORE-LEADING-SPACES ; 

if WRK-LINE (STRT-POS) in 'A' .. 'Z' and 
WRK-LINE (STRT-POS + 1 ) - '.' and 
(WRK-LINE ( STRT-POS + 2 > = ' 'or 
WRK-LINE ( STRT-POS + 2 ) - '/' ) 
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then 

FIND_NEXT_SP_OR_COMMA ; 

PLACE-SPACES; 
end if; 

end XTR-N—VAI—MDI_I N1T; 

procedure XTR-N—VAL-LAST—NAME is 

— Эта процедуре выполняет действия/ сходные 

— с действиями процедуры XTR-N-VAI _ FIRST-NAME/ 

— за исключением того/ что она выделяет не 

— первое имя/ а Фамилию, 
begin 

IGNORE-LEADING-SPACES ; 

FIND_NEXT—SP—OR-COMMA ; 

IS-CORRECT-NAME ; 

F-NAME-LN := END-POS - STRT-POS +1; 

F-NAME ,« WRK-LINE < STRT-POS .. END-POS ); 

— Здесь используется присваивание вырезки. 
PLACE-SPACES; 

end XTR-N-VAL-LAST-NAME; 
procedure XTR-N-VAI_PHONE is 

— Эта процедура проверяет номер телефона. 

— Если номер правильный/ то он преобразует- 

— ся в цифровой формат и запоминается в 

— PHONE-NO . 
begin 

IGNORE-LEADING-SPACES; 

FIND_NEXT-SP-OR-COMMA; 

DIGIT-CT 0;. 
for I in STRT-POS .. END-POS 
loop 

case WRK-LINE (I) is 

when '0'.. '9' -> DIGIT-CT .» DICIT-CT+l; 
when ■> if I ■ STRT-POS or 

I - END-POS 

— Черточки разрешены/ но только в окруже- 
— нии других символов, 
then 

BAD-DATA ,= TRUE; 
exit; 

— Это - безусловный выход 
— из цикла, 
end if; 

when 'А' .. 'С' -> WRK-LINE (I) '2' ; 

when 'D' .. 'F' *> WRK-LINE (I) '3' / 

when 'G' .. 'I' -> WRK-LINE (I) '4' ; 

when 'J' .. 'L' »> WRK-LINE (I) =- '5' ; 

when 'M' .. '0' => WRK-LINE (I) .--'6' ; 

when 'P' I 'R' I 'S' => WRK-LINE (I) :■ 

when ‘T .. 'V' -> WRK-LINE (I) := '8' ; 

when 'W' .. 'Y' => WRK-LINE (I) .= '9' ; 

when others *> BAD-DATA :* TRUE; 

exit; 

end case; 
if not BAD-DATA 
then 

DIGIT-CT .= DIGIT-CT + 1; 
end if; 
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end loop; 

If DIGIT-CT /= 1Ѳ 
then 

BAD-DATA := TRUE; 
end if; 

if not BAD-DATA 
then 

PHONE-LN = = 12; 

CURR-DIG := 3; 

for I in STRT-POS .. END-POS 
loop 

if WRK-LINE (1) in 'O' . . '9' 
then 

PHONE-NO < CURR-DIG ) := WRK-LINE (I); 
CURR-DIG := CURR-DIG + 1; 
end if; 
end loop; 

PHONE-NO <1 .. 3) := PHONE-NO ( 3 .. 5); 

— Это - опять присваивание вырезки. 
PHONE-NO (4) :■ 

PHONE-NO (S .. 7) == PHONE-NO (6 .. 8); 
PHONE-NO < 8) := 
end if; 

PLACE-SPACES; 

end XTR_N_VAI_PHONE; 

procedure DISP-ERROR is 

— Процедура выдает сообщение об ошибке и 

— отображает строку с неверными данными, 
begin 

PUT <" This line is invalid: 

PUT< INP-LINE ); 

NEW-LINE; 
end DISP-ERROR; 
begin 

GET-LINE (INP-LINE, LINE-LN) ; 

— Теперь считывается строка с фамилией або- 

— нента и номером телефона. Целее расположен 

— простейший цикл, 
while INP-LINE /« “XX й 

loop 

WRK-LINE := INP-LINE; 

LOW-TO_UPPER_N_CT_COMMAS; 

BAD-DATA := FALSE; 
case NO-COMMAS is 
when 1 => 

— Эта альтернатива выбирается, если за 

— первым именем следует Фамилия. 

XTR-N-VAI _ LAST-NAME ; 

XTR-N-VAI _ FIRST-NAME; 

XTR-N-VAI_MDt_I N1T; 

XTR-N-VAL-PHONE; 

when 2 => 

— Эта альтернатива выбирается, если за 
— Фамилией стоит запятая, а затем - 

— первое имя. 

XTR-N-VAI _ FIRST-NAME ; 

XTR_N_VAI _ MDl_INIT; 
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XTR_N-VAI _ LAST—NAME ; 

XTR-N-VAL-PHONE; 

when others => BAD-DATA == TRUE ; 
end case; 
if BAD-DATA 
then 

DISP-ERROR; 

else 

PUT (F-NAME); PUT (' '); 

PUT (L-NAME); PUT (' '); 

PUT (PHONE-NO); 

NEW-LINE; 
end if; 

GET-LINE ( INP-LINE, LINE-LN); 
end loop; 
end NAME-PHONE; 


4.2. ИМЕНА, ЗНАЧЕНИЯ И ВЫРАЖЕНИЯ 

В этом разделе рассматриваются новые аспекты понятий, широко использовав¬ 
шихся в предыдущих главах. Обсуждаются имена, значения и выражения. 


4.2.1. Имена 

Имена широко применялись в предыдущих главах в качестве идентификаторов 
переменных, констант, типов, подтипов и подпрограмм. В данной главе были введены 
новые виды идентификаторов: метки, имена блоков и имена циклов. Завершают список 
возможных идентификаторов языка Ада имена задач и их входов, а также названия 
исключительных ситуаций (см. гл. 10 и 11). 

Кроме идентификаторов, в Аде есть и другие виды имен, например, атрибуты, 
составные имена (selected components), вырезки из массивов, индексированные компо¬ 
ненты (последние три вида имен были введены в гл. 2), символьные литералы и 
обозначения операций. Здесь кратко рассмотрим особенности составных имен и индек¬ 
сированных компонент. 

Индексированные компоненты использовались в гл. 2 для обозначения элементов 
массива. Как будет видно из материала гл. 10, они также могут применяться для 
обозначения входа в семействе входов. Общая форма индексированной компоненты 
такова: имя_или__обращение_к_функции (одно_или_более_выражений). Если выра¬ 
жений несколько, то они отделяются друг от друга запятыми. Совокупность этих 
выражений задает определенное значение компоненты. Использование вызовов функ¬ 
ций в индексированных компонентах будет рассмотрено в следующей главе. 

Следует отметить, что компоненты многомерных массивов и компоненты мас¬ 
сивов, состоящих из массивов,-это разные понятия, имеющие к тому же и различные 
формы записи. Пусть, например, действуют объявления: 

type X is array (1 .. 10, 1 .. 10 ) 
of INTEGER; 

typ* Y is array ( 1 .. 10 ) of INTEGER; 

typ* YY is array ( 1 .. 10 ) of Y; 

A , X; 

В = YY; 
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Здесь А -двумерный массив. Для обращения к одной из его компонент следует указать 
два значения или в общем случае два выражения, например А (2,5). Однако массив 
В-это массив, состоящий из массивов. Здесь В (2) (5) обозначает пятую компоненту 
массива В (2). 

Обратимся теперь к составным именам. Их общая форма такова: 
имя_или_обращение_к_функции. селектор 

Селектором может служить идентификатор, символьный литерал, обозначение опера¬ 
ции (см. гл. 5) или зарезервированное слово all (все). 

Мы уже употребляли составные имена для обозначения компонент структуры (см. 
гл. 2) или для объектов, на которые указывали ссылочные переменные (см. гл. 3). 
Завершают список возможных составных имен ресурсы, объявленные в видимой части 
пакетов (см. гл. 7), входы задач (см. гл. 10) и ресурсы, объявленные в охватывающем 
данный участок программы теле подпрограммы, теле пакета, теле задачи, а также в 
охватывающем блоке или цикле. 

Пример. Следующие строки программы демонстрируют использование составных 
имен в охватывающем блоке. 

АЙ : declare 
I : INTEGER/ 
begin 

I : - 10; 

BB : declare 

I, J : INTEGER; 
begin 

J := AA.I; BB.I ■= J ** 2; 

AA.I :“ J mod 5 + BB.I / 5; 
end BB; 
end AA; 


Здесь AA.I и BB.I -два составных имени. Членом «имя», т. е. префиксом, здесь является 
идентификатор блока (АА или ВВ), а членом «селектор»-идентификатор I, обозначаю¬ 
щий имя переменной. Форма записи АА.І и ВВ.І внутри блока ВВ необходима для 
того, чтобы указать, какую именно переменную с именем I мы хотим использовать: ту, 
которая объявлена в блоке АА, или ту, которая объявлена в блоке ВВ. В этом слу¬ 
чае вступают в силу так называемые правила видимости, которые будут изложены в 
гл. 6 и 7. 


4.2.2. Значения 

Обратимся теперь к значениям в языке Ада. Вспомните, что тип в Аде можно 
определить как совокупность значений и операций над ними. Величины и значения Ады 
могут принадлежать к типам, не имеющим компонент, например к перечисляемым, 
целым и действительным типам. Они могут относиться и к типам, имеющим ком¬ 
поненты, например к комбинированным типам (т. е. структурам) и к регулярным типам 
(т.е. массивам). 

Перечисляемые, целые и действительные типы объединяются в группу скалярных 
типов. Как можно догадаться, значения, принадлежащие к ним, называются скаляр- 
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ными значениями. Значения, относящиеся к составным типам, т. е. к типам, объекты 
которых имеют компоненты, называются составными значениями, или агрегатами. 
Впервые они были введены в гл. 2 для регулярных и комбинированных типов. При 
этом использовалась разновидность агрегатов, называемая позиционным агрегатом. 

Литералы мы употребляли для представления скалярных значений. Это были 
числовые и перечисляемые литералы. К последним относятся и символьные литералы. 
Литералы также использовались и для описания составных значений (например, 
символьных строк), и для обозначения ссылочных значений (null). Числовые литералы 
относятся к типу универсальный_целый или универсальный_действительный. Число¬ 
вые литералы имеют важную отличительную особенность. Они принадлежат к типам, 
имеющим произвольную точность. Поэтому числовые литералы являются предпочти¬ 
тельным способом введения констант как величин, принадлежащих к вполне конкрет¬ 
ному (т.е. не универсальному) типу. 

Теперь введем новый вид агрегатов для составных значений -агрегаты с поиме¬ 
нованными компонентами. В таких агрегатах каждому значению компоненты пред¬ 
шествует ее имя или значение ее индекса, за которым ставится составной символ = >. 
Преимущество такой формы записи заключается в том, что значения компонент можно 
записывать в произвольном порядке. 

Пример. Пусть имеются объявления: 

type WEIGHT_CLASS is array <1 .. 5) of FLOAT; 

type EMPI_REC is 

record 

F_NAME : STRING (1 .. 10); 

SOS-ID : STRING (1 .. 9)i 
SALARY > FLOAT; 
end record; 

CURR-EMPL . EMPL-REC; 

WEIGHT-TABLE , WEIGHT-CLASS; 


Тогда агрегаты можно записать несколькими способами. Вот один из них: 

("NICHOL ","123456789", 550.25) 

Это позиционный агрегат. Другой способ записи: 

(F_NAME => "NICHOL 
SOSJD => "123456789", 

SALARY => 550.25) 

Этот агрегат с поименованными компонентами. Третий способ: 

(SALARY => 550.25, F_NAME => "NICHOL 
SOSJD => "123456789") 

Это тот же агрегат, но порядок следования именованных компонент выбран произ¬ 
вольно. Вот пример корректной записи оператора присваивания: 


CURR EMPL : = 

(SALARY => 550.25, F_NAME => "NICHOL 
SOSJD => "123456789"); 
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Для переменной WEIGHT-TABLE можно представить два эквивалентных агре¬ 
гата. Позиционный агрегат записывается так: 

(1.0, 3.0, 5.0,8.0,13.0) 

В форме с поименованными компонентами его можно записать так: 

(1 = > 1.0, 2 = >3.0, 3 = > 5.0, 4 = > 8.0, 5 = >13.0) 
или так: 

(3 = > 5.0, 1 = > 1,0, 2 = > 3.0, 4 = > 8.0, 5 = > 13.0) 

При записи агрегата можно использовать диапазон значений индексов, например, 

так: 

(1 ..5 = >3.5) 

что эквивалентно следующей записи: 

(3.5, 3.5, 3.5, 3.5, 3.5) 

Более того, разрешается употреблять зарезервированное слово others (другие) для 
указания оставшихся значений, имея в виду компоненты, не упомянутые ранее. 
Например, можно записать: 

(2.. 4 = > 0.5, others = > 1.0) 
что эквивалентно записи 
(1.0, 0.5, 0.5, 0.5, 1.0) 

Слово others должно быть последним среди имен компонент агрегата. 

Можно присваивать значения нескольким (не обязательно следующим подряд) 
компонентам, если использовать символ |. Этот символ разделяет имена компонент, 
получающих одно и то же значение. Например: 

(1 I 3 I 5 = > 3.0, others = > 5.0) 

-это корректный агрегат с поименованными компонентами. Он эквивалентен записи 
(3.0, 5.0, 3.0, 5.0, 3.0) 

В языке Ада разрешено использование неоднозначных агрегатов, т.е. агрегатов, 
которые могут принадлежать сразу к нескольким различным типам. Например, если 
кроме типа WEIGHT-CLASS, будет объявлен еще и тип DIST-CLASS: 

type DIST-CLASS is array (0 .. 7) of FLOAT; 
и имеется агрегат вида: 

(1 => 13.0, 3 I 5 = > 8.0, others => 0.0) 

то этот агрегат может относиться как к типу DIST-CLASS, так и к типу WEIGHT- 
CLASS. Неоднозначность будет устранена, если агрегат (или любое другое выражение 
при аналогичной ситуации) уточнить («квалифицировать») при помощи имени типа. 
В этом случае следует записать так: 

DIST_CLASS' (1 => 13.0, 3 I 5 = > 8.0, others => 0.0) 

если мы обращаемся к значению типа DIST-CLASS. Если же нужно обратиться к 
значению типа WEIGHT-CLASS, то нужно написать так: 

WEIGHT CLASS' (1 => 13.0, 3 | 5 = > 8.0, others => 0.0) 
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Формат записи квалификатора значения агрегата чем-то схож с использованием 
атрибутов: за именем типа или подтипа следует апостроф, за' которым располагается 
само значение агрегата 1 ’. В разд. 6.1.2 будут даны более подробные сведения об 
устранении неоднозначности величин и о квалификаторах. 

4.2.3. Выражения 

Теперь перенесем наше внимание на выражения языка Ада. Как упоминалось в 
гл. 1, наиболее элементарным видом выражения является простейшее выражение 
(primary). Агрегат-это простейшее выражение. Такими же выражениями являются и 
уточненные величины из приведенных выше примеров. Другие простейшие выражения, 
которые уже встречались,-это числовые литералы, символьные строки, пустое значе¬ 
ние “null”, имена и генераторы. Кроме них, в этот список также входят обращения к 
функциям, о которых будет рассказано в следующей главе, преобразования типов и 
вообще любые выражения, заключенные в скобки. Простейшие выражения служат 
основой для построения более сложных выражений. 

В нижеследующих определениях и примерах будем считать, что все переменные 
относятся к целому типу. 

Множитель -это либо любое простейшее выражение, возведенное в степень 
(например, I ** J), либо абсолютное значение простейшего выражения (abs I), либо 
простейшее выражение, перед которым стоит зарезервированное слово not (не) (на¬ 
пример, not 0). 

Терм- это любой множитель, за которым следует обозначение одной из операций 
*, /, mod, rem, а затем-другой множитель. Пример терма: I*J. 

Простое выражение -это терм, перед которым может стоять знак (+ или —), или 
терм, за которым следует символ операции +, — или &, а затем-другой терм. Пример 
простого выражения: I + J. 

Отношение -это либо простое выражение; либо простое выражение, за которым 
следует обозначение одной из операций сравнения =,/=, <, <=, >, >=,а затем- 
другое простое Выражение (пример: I < J); либо простое выражение, за которым 
следует зарезервированное слово in или not in, а далее-диапазон значений, тип или 
подтип (пример: I in 1 .. 7). 

Выражение- это либо отношение; либо отношение, за которым следует символ 
логической операции or (или), and (и) или хог (исключающее или), а затем-другое 
отношение (пример: I < J and J > К); либо отношение, за которым следуют ключевые 
слова and then (и тогда), а далее-еще одно отношение (пример: I < J and then I = 0); 
либо отношение, за которым следуют зарезервированные слова or else (или когда), а 
затем располагается другое отношение (пример: I = J or else J = 3). Операция and then 
называется сокращенной конъюнкцией, а операция or else -сокращенной (инклюзивной) 
дизъюнкцией. Ниже мы детально рассмотрим их. 

Пример. Вот некоторые примеры, цель которых-помочь разобраться в иерархической 
структуре понятий простейшее выражение, множитель, терм, простое выражение, 
отношение и выражение. 

Простейшее_выражение: (I**J*K + L>MorN = P) 

Выражение (но не отношение): I**J*K + L>MorN = P 

Отношение (но не простое выражение): I**J*K+L>M 

Простое выражение (но не терм): I ** J * К + L 

Терм (но не множитель): I ** J * К 

Множитель (но не простейшее выражение): I *♦ J 


11 Для атрибутов порядок обратный: сначала идет величина, а затем апостроф и атри¬ 
бут. Прим, перев. 
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Глава 4 



Рис. 4.1. Иерархия выражений. 


Рис. 4.1 иллюстрирует эту иерархию. 

Логическая операция хог (исключающее или) ранее нами не использовалась. 
Результат вычисления выражения, в состав которого входит эта операция, получается 
следующим образом. Если I и J- логические переменные, то выражение I хог J дает 
значение FALSE, когда и I, и J имеют одинаковое значение. В противном случае 
значением выражения будет TRUE. 

Мы упомянули сокращенные формы логических операций and и ог-операции and 
then и or else. Эти сокращенные формы предписывают транслятору формировать 
объектный код таким образом, чтобы вначале вычислялась левая часть выражения. 
Правая часть будет вычисляться только в том случае, если одна левая не определит уже 
значение всего выражения. 

Пример. Он иллюстрирует выгоду применения сокращенных форм логических опера¬ 
ций. Здесь приведена модифицированная процедура FIND_NEXT_SP_OR_COMMA из 
программы PHONE_NAME, в которой теперь употребляется сокращенная логическая 
операция and then. 

procedure FIND_NEXT_SP_OR_COMMA is 

I : INTEGER; 

begin 

END-POS := STRT_POS; 

I :■ STRT_POS; 
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while I <= LINE-LN and then 

WRK_LINE(I) /= ' ' and then 
WRK_LINE<I) /ш 

loop 

I =- 1+1; 
end loop; 

END.POS : = I - I/ (LINE-LN +1); 

— Член I/<LINE_LN+1> нужен для того/ чтобы 

— вычесть 1 из I/ если последнее значение Г 

— равняется LINE-LN+1 . 
end FIND_NEXT_SP_OR_COMMA ; 

Выражение 

I <= LINEJ.N and then WRKJJNE (I) /= ' ' and then. WRK_LINE (I) /= 

вычисляется следующим образом. Вначале вычисляется отношение I = LINE_LN. 
И только в том случае, если оно истинно, будет вычисляться отношение 
WRK_LINE(I)/=' Только если и в этом случае результат окажется TRUE, то будет 
вычислено последнее отношение WRK_LINE(I)/ = ',\ 

Заметьте, что если здесь заменить сокращенную логическую операцию and then на 
обычную логическую операцию and, то индекс массива мог бы выйти за пределы 
предписанного диапазона. Так, если бы I стало равно LINE_LN 4-1, то соответствую¬ 
щая ему компонента WRK_LINE(LINE_LN +1) отсутствовала бы в массиве. 

За исключением сокращенных форм логических операций, не предполагается 
какой-либо обязательный порядок, в котором должны предварительно вычисляться 
значения обоих операндов для выполнения операции. Вспомните, что у операции and 
более высокий приоритет, чем у операции ог. Приоритет операции and then такой же, 
как у операции and, а приоритет or else и хог такой же, как у ог. 

Логические операции можно применять по отношению к одномерным массивам, 
элементы которых принадлежат к логическому типу. При этом операции выполняются 
с каждым элементом отдельно. Пусть, например, имеются такие объявления: 

type SWITCHES is array (1 .. 7) of BOOLEAN; 

CURR STATUS, PREV.STATUS : SWITCHES; 

Тогда можно написать следующие операторы: 

PREV.STATUS := (1 ..4 I 7 = > TRUE, others => FALSE); 

CURR^STATUS := PREV.STATUS xor PREV_STATUS; 

Они эквивалентны операторам: 

CURR.STATUS := (1 . 7 => FALSE); 

PREV.STATUS := (5 ..6 => FALSE, others => TRUE); 

Можно также записать: 

CURR_STATUS := CURR.STATUS or PREV_STATUS); 

Это эквивалентно следующему оператору: 

CURR_STATUS := (1 . . 4 | 7 = > TRUE, others => FALSE); 

В табл. 4.1 приведена сводка операций языка Ада, типов операндов, к которым они 
применяются, и типов результатов этих операций. 



Таблица 4.1. Операции языка Ада 


Обозначение опера- Название операции 


Типы операндов 


Левый операнд 


Правый операнд 


Тип результата 


+ Знак плюс 

— Знак минус 

abs Абсолютное значение 

not Логическое отрицание 

+ Сложение 

— Вычитание 

& Сцепление 


mod 

rem 


Остаток от деления 
Остаток от деления 
Умножение 


Унарные операции 

Числовой 


Тот же числовой тип, что 
и у операнда 
То же 


Логический 


Бинарные операции 

Числовой 


Одномерный регулярный тип 


Тип компонент, образующих 
регулярный тип 

Тип элементов 
Целый 


Тот же числовой тип, что и у 
левого операнда 
Тот же числовой тип, что и у 
левого операнда 
Тот же одномерный регуляр¬ 
ный тип, что и у левого опе¬ 
ранда 

Тип компонент левого операн¬ 
да 

Регулярный одномерный тип 
с компонентами типа левого 
операнда 
Тип элементов 
Целый 


Тот же числовой тип, что и 
у операндов 


Тот же одномерный регу 
лярный тип, что и у one 
рандов 

Тот же одномерный регу 
лярный тип, что и у ле 
вого операнда 
Тот же одномерный регу 
лярный тип, что и у пра 
вого операнда 
Любой регулярный тип 
Целый 


Плавающий Плавающий 

Фиксированный Целый 


Плавающий 

Тот же фиксированный тип, 








что и у левого операнда 



Целый 

Фиксированный 

Тот же фиксированный тип. 





что и у правого операнда 



Фиксированный 

Фиксированный 

Универсальный фиксиро- 





ванный тип 

/ 

Деление 

Целый 

Целый 

Целый 



Плавающий 

Плавающий 

Плавающий 



Фиксированный 

Целый 

Тот же фиксированный тип. 





что и у левого операнда 



» 

Фиксированный 

Универсальный фиксиро- 





ванный тип 

** 

Возведение в степень 

Целый 

Натуральный 

Тот же числовой тип, что и 





у левого операнда 



Плавающий 

Целый 

Тот же плавающий тип, что 





и у левого операнда 

= 

Равенство 

Скалярный 

Тип левого операнда 

Логический 



Составной 

То же 

То же 



Ссылочный 

» 

» 

/= 

Неравенство 

Скалярный 

» 

» 



Составной 





Ссылочный 

» 

» 

<, < = 

Меньше, меньше или равно 

Скалярный 

» 

» 

>, > = 

Больше, больше или равно 

Дискретный регулярный тип 

» 

» 

in, not in 

Операции проверки при¬ 

Значение, принадлежащее ■ 

: Диапазон, тип или подтип 

» 


надлежности 

типу правого операнда 




Конъюнкция 

Логический 

Логический 

» 

or 

Инклюзивная дизъюнкция 

Логический регулярный 

Тот же логический регуляр¬ 

Тот же логический регуляр¬ 

xor 

Эксклюзивная дизъюнкция 


ный тип, что и у левого 

ный тип, что и у операн¬ 




операнда 

дов 

and then 

Сокращенная форма конъ¬ 

Логический 

Логический 

Логический 


юнкции 




or else 

Сокращенная форма инклю¬ 

» 

» 

» 


зивной дизъюнкции 
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4.3. КОМБИНИРОВАННЫЕ ТИПЫ С ВАРИАНТАМИ 

Вариантные комбинированные типы -это особый вид комбинированных типов с» 
дискриминантами. Они дают возможность программисту указывать один или не¬ 
сколько альтернативных списков компонент, которые должны быть включены в объект 
этого типа (т.е. в структуру). Вариантная часть комбинированного типа, если она 
присутствует, должна располагаться непосредственно перед ключевыми словами end 
record. Она имеет форму: 

case имя^дискриминанта is 

when одно_или_несколько_условий_выбора => список_компонент 
— Здесь могут присутствовать несколько таких вариантов. 

end case; 

Если после зарезервированного слова when располагаются несколько условий_выбора, 
то они отделяются друг от друга вертикальной чертой |. 

В качестве условия_выбора можно употреблять статическое простое выражение, 
дискретный диапазон, зарезервированное слово others или простое_имя_компоненты, 
под которым подразумевается только идентификатор компоненты (скажем, без ин¬ 
дексов). Зарезервированное слово others может появляться как условие_выбора только 
для последней альтернативы. Поскольку переменные комбинированного типа (т.е. 
структуры) могут служить компонентами других комбинированных типов, образуя так 
называемые вложенные комбинированные типы, то могут получаться и вложенные 
вариантные части. Условия_выбора должны охватывать все множество возможных 
значений дискриминанта. Наличие совпадающих значений в разных условиях_выбора 
недопустимо. 

Список-компонент-это список компонент комбинированного типа, т.е. последова¬ 
тельность объявлений компонент структуры. Если список_компонент пуст, то должна 
присутствовать компонента null (пусто). 

Пример. Следующие строки программы демонстрируют объявления комбинированно¬ 
го типа с вариантной частью. 

type LABOR is (SALARIED/ HOURLY/ SUBCONTRACTOR); 

type EMPLOYEE (LAB_KIND , LABOR' :=* SALARIED) is 
— Вспомните (см. гл. 2), что LAB-KIND . LABOR 

— - это дискриминантная часть. Она имеет на- 

— чальное значение/ которое будет принято по 

— умолчанию. Имя дискриминанта - LAB-KIND, 
record 

F-NAME : STRING ( 1 . . 10 ); 

L-NAME : STRING ( 1 .. 15 ); 

SOS-ID : STRING ( 1 .. 9 ); 

case LAB_KIND is 

when SALARIED => YEARLY-SAL = FLOAT; 

Y-T-DATE-TOTAL = FLOAT; 
when HOURLY «> HOURLY-PAY , FLOAT ; 

HOURS-WORKED , FLOAT; 

OVERTIME-HRS = FLOAT; 
when SUBCONTRACTOR => DATLY-FEE : FLOAT; 

Y_T_DATE_DAYS :NATURAL; 

end case; 
end record; 
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Теперь приведем объявления переменных типа EMPLOYEE: 

SAI _ EMPLOYEE , EMPLOYEE ( SALARIED ); 

CURR.EMPLOYEE . EMPLOYEE; 

— Это об'явление - правильное/ так как при 

— об'явлении комбинированного типа 

— EMPLOYEE было задано начальное значение 

— дискриминанта/ которое принимается 

— по умолчанию. 

CLER I САІ _ EMPL . EMPLOYEE < HOURLY ); 

Далее дадим два примера присваивания агрегата, относящегося к типу 
EMPLOYEE: 

CURR.EMPLOYEE == (LAB.KIND => SALARIED/ F.NAME => 

"ROBERT "/ I_NAME => “MUNHAUSEN " / 

SOS.ID => "555554444"/ YEARLY.SAL => 25.000. 0Ѳ , 
Y.T.DATE.TOT AL => 13.000.00); 


Изменение значения дискриминанта в объекте комбинированного типа (т. е. 
структуре) разрешается, если всем другим компонентам этой структуры присваиваются 
новые значения, например: 


CURR.EMPLOYEE 


( LAB.KIND 
F.NAME 

I_NAME 

SOS. ID 
HOURLY-PAY 
HOURS.WORKED 
OVERTIME.AMT 


‘> HOURLY/ 

=> "HARDY12345"/ 

=> "LAURENTINI54321"/ 
: > "123456789" , 

■> 9.75 , 

>> 45.5 / 

■> 4.Ѳ ); 


Следующая программа иллюстрирует применение дискриминантов и комбиниро¬ 
ванных типов с вариантами. Программа считывает данные об оценках студентов, получен¬ 
ных в конце семестра. Допустимы такие оценки 1 ’: А, А — , В + , В, В — , С+, С, С —, D+, 
D, F, NC (no credit -нет оценки), W (withdrawal -студент прекратил заниматься по этому 
курсу), I (incomplete -не прошел достаточное количество курсов) и Р (pass -зачет). 

Для каждой категории студентов программа должна отображать среднеарифме¬ 
тическую оценку в баллах в соответствии со следующей шкалой 2 ’: А-это 4.0, А-это 

3.7, В+-ЭТО 3.3, ..., D -это 1.0, F -это 0. Должно соблюдаться следующее правило: 
для курсов, относящихся к основной специализации студента, требуется оценка не хуже 
С—, в противном случае необходимо повторное обучение по этому курсу, о чем 
программа должна выдать соответствующее сообщение. Для основных курсов или 
курсов, занимающих второе место по важности, оценка Р не разрешается. Студент, 
который не должен получать степень бакалавра (nondegree student), т. е. занимающийся 
на курсах повышения квалификации, может получить любую оценку. Вольнослу¬ 
шателям (auditing students) оценки не выставляются. Студент, обучающийся с целью 
получения диплома бакалавра (degree student), должен иметь среднеарифметическую 
оценку не ниже 1.5, иначе ему дается некоторый испытательный срок. Для студентов, не 
получающих диплома бакалавра, следует также выдать суммарную оценку, а для 
вольнослушателей-общее количество часов посещенных занятий. Курсы высокого 
уровня, номера которых больше 100, вольнослушателям посещать не разрешается. 


*’ Это оценки, принятые за рубежом- Прим, перев. 

2) Полные сведения о соответствии буквенных и цифровых оценок приведены в тексте 
программы GR_POINT_AVE- Прим, перев. 
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Исходная информация по каждому студенту дается в двух строках. В первой из них 
приводятся такие данные: количество учебных курсов, которые проходит данный 
студент (поз. 1-2), вид обучения студента -DEGREE, NONDEGREE или AUDITOR 
(поз. 3-15), личный номер студента (поз. 16-24), фамилия студента (поз. 25-39). Если 
студент обучается для получения степени бакалавра, то в поз. 40-43 содержится 
обозначение главного предмета, по которому специализируется студент, а в поз. 
44-47 - обозначение второго по важности предмета. Во второй строке приводятся 
данные, касающиеся учебных курсов. Для вольнослушателей там задаются сведения об 
обозначении курса, кодовый номер курса, количество учебных часов. Для остальных 
студентов там приводятся данные об обозначении курса, его кодовый номер, 
количество учебных часов и оценка. Эта информация занимает 10 позиций для 
вольнослушателей и 12 позиций для остальных студентов. Конец потока данных 
отмечается записью, которая в поле количества учебных курсов содержит число 99. 

Программа GR^POINT АѴЕ 

with TEXT— 10; use ТЕХТ-ІО; 
procedure GR_POINT_AVE is 
type COURSE-INFO is 
record 

CR-ID : STRING!1 .. 4); 

— Пример: "ENGL'*. 

CR-NO : STRING!1 .. 4); 

— Пример: "117 “ 

CR-CRDT : NATURAL; 

— Пример : 3. 
end record; 

type COURSE-LIST is array !NATURAL range <>) 
of COURSE-INFO; 
type COURES-N-GRADE-INFO is 
record 

DESCR : COURSE-INFO; 

CR-GRADE : STRING!1 .. 2); 

— Пример: “A-", 
end record; 

type TRANSCRIPT is array !NATURAL range <>) 
of COURSE-N-GRADE-INFO; 

type STUD-KIND is !DEGREE/NON-DEGREE,AUDITOR); 
package ST-TYPE-10 is new 

ENUMERATION-I0!STUD-KINO); 
use ST-TYPE-IO; 

package INT-10 is new INTEGER-IO!INTEGER); 
use INT-IO; 

type STUDENT !ST-TYPE : STUD-KIND := DEGREE ; 

NO_COURSES : NATURAL ) is 

record 

ST_ID •• STRING ! 1 .. 9); 

ST-NAME : STRING !1 .. 15); 
case ST-TYPE is 
when DEGREE => 

ST-MAJOR : STRING!1 ..4); 

ST-MINOR . STRING!1 .. 4); 

ST-COURSES : TRANSCRIPT!1 .. NO_COURSES); 
when NON-DEGREE => 

ST_COURSES : TRANSCRIPT!1 .. NO_COURS£S); 
when AUDITOR => 

CRS-AUDITED: COURSE-LIST!! .. NO_COURS£S); 
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end сазе; 
end record; 

CURR-STUD : STUDENT; 

CURR_COURSE_INFO : COURSE-INFO == (" 

Ѳ) ; 

CURR-NO-COURSES = NATURAL; 

CURR-COURSES-N-GRADE = COURSE-N-GRADE-INFO := 
<(“ "/ “ ", Ѳ), “ “); 

CURR-ST-TYPE : STUD-KIND; 

GRADE-POINT, GRADE-POINT-AVE , FLOAT; 
package FLOAT-IO is new FLOAT-10<FLOAT); 
use FLOAT-IO; 

VALID-GRADE, AVE-FLAG : BOOLEAN; 
NO_IN_GRADE_POINT, NO_CREDITS NATURAL; 
SEC-CHAR : CHARACTER; 


— Значением этой переменной является второй 

— символ буквенной оценки <+, - или С). 
procedure CHECK-GRADE is 

begin 

— Эта процедура проверяет правильность 

— оценки, выставленной за учебный курс. Кроме 

— того, если эту оценку можно использовать при 

— вычислении средней оценки, то она по- 

— мецается в переменную GRADE-POINT, а 

— значение переменной AVE-FLAG устанавливается 

— равным TRUE. 

VALID-GRADE .= TRUE; 

SEC_CHAR =- CURR-STUD.ST-COURCES(I).CR-GRADE(2); 
AVE-FLAG =- TRUE; 

case CURR-STUD.ST-CORSES(I).CR-GRADE(1) is 
when “A" -> case SEC-CHAR is 

when ' ' «> GRADE-POINT == 4.0; 
when =•> GRADE-POINT :=» 3.7; 
when others => VALID-GRADE == 
FALSE; 


end case; 

when “B" -> case SEC_CHAR is 

when '+' => GRADE-POINT =* 3.3; 
when ' ' => GRADE-POINT .* 3.0; 
when *> GRADE-POINT =» 2.7; 

when others => VALID-GRADE :■ 
FALSE; 

end case; 

when “C" => case SEC-CHAR is 

when '+' => GRADE-POINT .= 2.3; 
when ' ' -> GRADE-POINT == 2.Ѳ; 
when => GRADE-POINT =- 1.7; 

when others => VALID-GRADE == 
FALSE; 

end case; 

when "D" => case SEC-CHAR is 

when '+' => GRADE-POINT :» 1.3; 
when ' ' => GRADE-POINT ,» 1.0; 
when others => VALID-GRADE :•= 
FALSE; 


end case; 

when “F" => case SEC_CHAR is 
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when ' ' => GRADE-POINT .= O.O; 
when others => VALID-GRADE := 
FALSE/ 

end case; 

when "N" => case SEC_CHAR is 

when 'C' => AVE-FLAG == FALSE/ 
when others => VALID-GRADE «■ 
FALSE; 

end case; 

when "W“ I ‘'I" I “P" *> 

case SEC_CHAR is 

when ' ' => AVE-FLAG :* FALSE; 
when others => VALID-GRADE :* 
FALSE; 

end case; 

when others => VALID-GRADE == FALSE; 
end case; 
end CHECK-GRADE; 
begin 

GET (CURR-NO-COURSES/ 2); 
while CURR-NO_COURSES /- 99 
loop 

GET ( CURR-ST-TYPE / 13 ); 

— Здесь реализуется один из трех возможных 

— видов структуры CURR-STUD. Стали известны 

— значения двух дискриминантов/ и теперь 

— структуру CURR-STUD можно проинициализи- 

— ровать. 

case CURR-ST-TYPE is 

when DEGREE *> CURR-STUD := 

<ST-TYPE => CURR-ST-TYPE / 
NO-COURSE => CURR_NO_COURSES/ 

ST_ID => " 123456789"/ 

ST-NAME => "123456 789012345"/ 
ST-MAJOR => “XXXX", 

ST-MINOR => "YYYY", 

ST-COURSES(1) .. 

ST—COURCES < CURR-NO—COURSES) => 
CURR-COURCE-N-GRADE )> 
when NON-DEGREE => CURR-STUD >» 

(ST-TYPE => CURR-ST-TYPE , 
NO-COURSE »> CURR_NO_COURSES/ 
ST-ID => "123456789"/ 

ST-NAME => "123456789012345"/ 
ST_COURSES(1) .. 

ST-COURCES(CURR_NO_COURSES) -> 
CURR_COURCE_N_GRADE ); 
when AUDITOR => CURR-STUD 

(ST-TYPE -> CURR-ST-TYPE / 
NO-COURSE => CURR—NO_COURSES, 
ST-ID => "123456789", 

ST-NAME => "123456789012345"/ 
CRS-AUDI TED(1) .. 

CRS-AUDITED(CURR_NO_COURSES) “> 
CURR-COURCE-INFO ); 


end case; 
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GET ( CURR-STUD . ST-ID ); 

GET ( CURR-STUD . ST-NAME ); 
case CURR-ST-TYPE is 
when DEGREE => 

GE T(CURR-STUD.ST-MAJOR) ; 

GET(CURR-STUD.ST-MINOR) ; 

SKIP-LINE; 

for I in 1 .. CURR-NO-COURSES 
loop 

GET < CURR-STUD.ST-COURSES(I).DESC.CR-ID); 
GET < CURR-STUD.ST_COURSES <I).DESC.CR-NO); 
GET(CURR-STUD.ST_COURSES(I).DESC. 

CR-CRDT / 2); 

GET < CURR-STUD.ST_COURSES <I).CR-GRADE / 2); 
end loop; 

when NON-DEGREE -> 

SKIP-LINE; 

for I in 1 .. CURR-NO-COURSES 
loop 

GET < CURR-STUD.ST_COURSES(I).DESC.CR-ID); 
GET < CURR-STUD.ST_COURSES(I).DESC.CR-NO); 
GET(CURR-STUD.ST_COURSES(I).DESC. 

CR-CRDT/ 2); 

GET(CURR-STUD.ST_COURSES(I).CR-GRADE .2 ); 
end loop; 
when AUDITOR => 

SKIP-LINE; 

for I in 1 .. CURR-NO-COURSES 
loop 

GET(CURR-STUD.CRS_AUDITED<I)-CR-ID); 

GET(CURR-STUD.CRS-AUDITED(I).CR-NO); 

GET(CURR-STUD.CRS-AUDITED(I).CR-CRDT / 2); 
end loop; 
end case; 

— В данном месте программы информация о сту- 
-ленте запомнена в переменной CURR-STUD. 

— Теперь проверим правильность оценок и 

— начнем вычисление средней оценки,если толь- 

— ко студент не является вольнослушателем, 
case CURR-ST-TYPE is 

when DEGREE => 

GRADE-POINT-AVE :* 0.0; 

NO-IN-GRADE-POINT := O; 
for I in 1 .. CURR-NO-COURSES 
loop 

CHECK-GRADE; 

— Оценка за курс - это буква от 
— F до А. 

if VALID-GRADE and AVE-FLAG 
then 

GRADE_POINT_AVE == 

GRADE_POINT_AVE + GRADE-POINT; 

N0_IN_GRADE_P0INT := 

NO-IN_GRADE_P0INT + 1; 

— Это курс по основной дисциплине? 

— Если да/ то оценка должна быть 
— выше/ чем С-/ т.е. GRADE-POINT 
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— должна быть больше 1.7. 
if CURR-STUDENT . ST-MAJOR - 

CURR-STUD . ST-COURCES <I).DESC.CR_ID 
and then 

GRADE-POINT <1.7 
then 

PUT<" The coarse must be repeated"); 
PUT <I); 

NEW-LINE; 
end if; 
end if; 

— Вспомните/ что для основного и вторич- 
— ного предмета не допускается оценка 
— Р (зачет). 
if (CURR-STUD.ST-MAJOR - 

CURR-STUD.ST_COURCES(I>.DESC.CR-ID 
or 

CURR-STUD.ST-MINOR « 

CURR-STUD.ST-COURCES(I).DESC.CR-ID) 
and 

CURR-STUD.ST-COURCES(I).CR-GRADE 

о "p" 

then 

PUT(" No pass fail option"); 

PUT(I); 
end if; 
end loop; 

if NO-IN-GRADE-POINT > 0 
then 

GRADE-POINT-AVE GRADE-POINT-AVE / 

FLOAT < NO-1N-GRADE-POINT); 

PUT(GRADE_POINT_AVE/ 5/ 3); 
if GRADE-POINT-AVE <1.7 
then 

PUT( " Probation "); 
end if; 

PUT(CURR-STUD.ST-NAME); 

NEW-LINE; 
end if; 

when NON-DEGREE -> 

GRADE-POINT-AVE =« 0.0; 

NO-IN_GRADE_P0INT 0; 

for I in 1 .. CURR-NO-COURSES 
loop; 

r*upp|^ ГОЛПС : 

if VALID-GRADE and AVE-FLAG 
then 

GRADE-POINT-AVE =* 

• GRADE-POINT-AVE + GRADE-POINT; 

N0_IN_GRADE-POINT 

NO-IN_GRADE_P0INT +1; 
end if; 
end loop; 

if NO-IN_GRADE_P0INT > 0 
then 

GRADE-POINT-AVE GRADE-POINT-AVE / 
FLOAT(NO-IN_GRADE_P0INT); 
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PUT<GRADE_POINT_AVE, S, 3); 
end if; 

PUT(CURR-STUD.ST-NAME); 

NEW-LINE; 
when AUDITOR => 

NO_CREDITS .=0; 
for I in 1 .. CURR-NO-COURSES 
loop 

if CURR-STUD.CRS-AUDITED(I).CR-NO 
> 99 
then 

PUT( " Course do not allowed "); 
else 

NO-CREDITS .« NO-CREDITS + 

CURR-STUD.CRS-AUDITED(I).CR-CRDT; 
end if; 
end loop; 

PUT(NO_CREDITS/ 3); 

PUT(CURR-STUD.ST-NAME); 

NEW-LINE; 
end case; 

GET (CURR_N0-C0URSES / 2); 
end loop; 
end GR-PO1NT—AVE; 


УПРАЖНЕНИЯ 

1. Модифицируйте программу NAME_PHONE следующим образом. Первые символы 
первого имени и фамилии нужно печатать прописными буквами, а остальные символы- 
строчными. 

2. Пусть на вход подаются целые действительные литералы (по одному литералу в строке). 
Используйте процедуры из программы NAME_PHONE для проверки корректности каждого 
литерала. Программа должна выводить числовой литерал и сообщение об его правильности или 
неправильности. Сведения о литералах были представлены в гл. 1. 

3. Напишите программу, которая считывает даты и затем печатает их в стандартном 
формате. Каждая дата располагается в одной входной строке и может иметь несколько форматов. 
В начале строки идет число или месяц, затем соответственно-месяц или число, а в конце 
строки-год. Перед каждым из трех значений стоит по меньшей мере один пробел. Перед годом 
может стоять запятая и по крайней мере один пробел. Названия месяцев 1 ’ можно сокращать, но не 
более чем до трех символов. Если они сокращены, то после последнего символа названия месяца 
должна стоять точка. Для названий месяцев разрешается употреблять и прописные, и строчные 
буквы. После цифр, обозначающих число, можно по желанию ставить суффикс th 2) , а если 
числа-1, 2, 3, то цифра и суффикс принимают вид: 1st, 2nd, 3rd. В суффиксах можно использовать 
буквы обоих регистров. Если число стоит перед названием месяца, то между днем и месяцем 
ставится слово of. Если же название месяца размещается первым, то между месяцем и числом 
может стоять артикль the. Дни имеют номера от 1 до 31, а в обозначении года должно быть ровно 
четыре цифры. Вот примеры допустимых дат: 

15th of November, 1975 
Nov. 17, 1984 
Sept. 12 1985 
1st JULY 1985 
DEcemb. the 2nd 1987 


Естественно, английские названия- Прим, перев. 

Обозначающий порядковые числительные в английском языке- Прим, перев. 
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Глава 4 


А вот примеры некорректных дат: 

3 Jun 1985 После Jun нет точки 

4th of July 87 В обозначении года-только две цифры 

Sept, the 4th,1988 Перед обозначением года нет пробела 

Для каждой введенной строки следует напечатать дату и признак ее корректности (valid или 
invalid). Признаком конца данных служит строка с точкой в первой позиции. При написании этой 
программы можно воспользоваться процедурами из программы NAME._PHONE. 

4. Напишите программу, подсчитывающую пенсионные взносы служащих. Взносы платят 
только служащие, относящиеся к категориям HOURLY (почасовая оплата) и SALARIED (оклад), 
а служащие, принадлежащие к категории SUBCONTRACTOR (работа по договору), взносов не 
платят. Входные данные для типов LABOR и EMPLOYEE, определенных в разд. 4.3, имеют 
формат: 

Позиции Данные 

1-15 LAB_KIND (вид служащего) 

16-25 F_NAME (имя) 

26-40 LJMAME (фамилия) 

41-49 SOS_ID (номер по соцстраху) 

Далее в зависимости от категории служащего, следуют два действительных числа, три действи¬ 
тельных числа или целое и действительное число (см. разд. 4.3). Сведения о каждом служащем 
занимают одну строку, а в первой строке приведено число, равное количеству строк с данными о 
служащих. Размер пенсионного взноса составляет 10% от значения переменной Y_T_DATE_ 
TOTAL (доход) для служащих категории SALARIED (оклад) и 8% от номинальной заработной 
платы для служащих категории HOURLY (почасовая оплата). Для служащих с почасовой оплатой 
сумма номинального дохода вычисляется по формуле 

HOURLY.PAY * (HOURS„WORKED + 1.5 * OVERTIME_HRS) 

Здесь приняты обозначения: 

HOURLY_PAY- оплата за час работы; 

HOURS_WORKED- отработано часов; 

OVERTIME_HRS- отработано сверхурочных часов. 

Размер взноса ограничен суммой в 5000 долл. Служащий может одновременно фигурировать и 
как SALARIED, и как HOURLY, так как должность его в компании может неоднократно 
изменяться. Входные данные следуют в произвольном порядке. Программа должна выводить имя 
каждого служащего и размер его пенсионного взноса. 

5. Студенты часто не соглашаются со своей итоговой оценкой и просят объяснить, как она 
вычисляется. Для проверки правильности итоговой оценки измените программу GR_POINT_AVE 
следующим образом. Сведения о студентах, обучающихся на степень бакалавра, и о студентах, не 
получающих этой степени, разделяются на три порции. Первые две порции идентичны входным 
данным исходной версии программы GR_POINT_AVE. В третьей части данных приводится 
информация о каждой контрольной работе, использовавшейся при вычислении итоговой оценки. 
Для каждого учебного курса, который был изучен студентом и по которому выставлена буквенная 
оценка (от А до F), задается входная строка следующего формата: 

Позиции Данные 

1-4 Обозначение предмета 

5-8 Кодовый номер учебного курса 

9-10 Количество контрольных работ 

11-12 Вес оценки за первую контрольную ра¬ 

боту (например, 15 обозначает 15% от 
итоговой оценки) 

13-14 Буквенная оценка первой контрольной ра¬ 

боты (А, А — , ..., F) 

15-18, 19-22 и т.д. Информация о второй, третьей и т.д. 

контрольных работах 



Прочие операторы языка Ада 


127 


Программа GR_POINT_AVE теперь должна выполнять дополнительные действия. Каждую 
итоговую оценку следует сравнивать со средневзвешенной оценкой, вычисленной на основании 
строк с информацией о контрольных работах. Необходимо напечатать сообщение, свидетельст¬ 
вующее о правильности итоговой оценки. Например, для сообщения Final grade В (итоговая 
оценка-В) строка с данными о контрольных работах имеет вид 
ЗОА 20В 20В ЗОС 

а средневзвешенная оценка вычисляется так: 

(30 * 4.0 + 20 * 3.0 + 20. * 3.0 + 30 * 2.0)/ 4 = 3.0 (соответствует В) 

В этом примере итоговая оценка правильная. Если средневзвешенная оценка попадает в интервал 
между двумя буквенными оценками, то берется более высокая буквенная оценка. 



Глава 5 


Подпрограммы: 
процедуры и функции 


5.1. ПРОЦЕДУРЫ 


Как отмечалось в гл. 1, программы на языке Ада состоят из одного или более 
программных сегментов. В данной главе будет рассмотрен один из видов программных 
сегментов - подпрограммы. При написании программ, представленных в первых четырех 
главах книги, уже применялась одна из разновидностей подпрограмм, называемая 
процедурой. Существует и вторая разновидность подпрограмм, которая называется 
функцией. Функции будут представлены в следующем разделе. 

Использовавшиеся ранее процедуры имели один и тот же общий вид. Все они 
определяли тело подпрограммы: 

procedure идентификаторлроцедуры is 

возможные_объявления 

begin 

последовательность операторов 
end идентификатор процедуры; 

Вот простейший пример: 
procedure NOTHING is 
begin 
NULL; 

end NOTHING; 

В этой процедуре отсутствует формальная часть, в которой приводится список 
спецификаций параметров, заключенный в скобки. Если же формальная часть присутст¬ 
вует, то она должна располагаться сразу за идентификатором процедуры. Специфика¬ 
ции параметров отделяются друг от друга символом «;». Указать спецификацию 
параметров несложно. Для этого надо задать список переменных, за которым ставится 
двоеточие и указывается их тип или подтип. 

Пример. Следующая процедура демонстрирует запись тела подпрограммы с формаль¬ 
ной частью 

procedure SOMETHING ( I,J = INTEGER , 

К : STRING ) is 

LOC : INTEGER == 4; 
begin 

LOC:= I * J * LOC ; 
if LOC > 100 then 

PUT ( " Product exceeds limit “ ) ; 
end if i 

if К < 1 .. 5 ) = К < 6 .. 10 > then 
PUT ( "Repeated string “ >; 
end if; 

end SOMETHING; 
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В процедуре SOMETHING имеется формальная часть (I, J : INTEGER; К : STRING). 
Здесь есть две спецификации параметров. Первая из них-это спецификация I, J : 
INTEGER , а вторая, располагающаяся после символа «;» спецификация К : STRING . 
В первой спецификации параметров список переменных I, J. состоит из двух перемен¬ 
ных, разделенных запятой. Их тип или подтип -INTEGER. Во второй спецификации 
параметров список состоит всего лишь из одной переменной К и обозначения_типа 
STRING. Это обозначение является одним из способов, которыми указываются типы 
или подтипы (см. гл. 2). 

5.1.1. Формальные параметры 

Переменные, которые указываются в этих списках, называются формальными 
параметрами. Так, I, J и К-это формальные параметры. Они известны только в 
пределах тела процедуры. Тип формального параметра задается обозначением_типа 
после двоеточия в спецификации параметров. 

Выполнение процедуры заканчивается при достижении зарезервированного слова 
end, за которым следует идентификаторлроцедуры. Выполнение ранее приведенных 
процедур заканчивалось именно таким способом. Однако выполнение процедуры 
может быть закончено в любом месте ее последовательности_операторов с помощью 
оператора возврата 

return; 

Например, можно изменить процедуру SOMETHING, указав другую возможную 
точку выхода из нее: 

procedure SOMETHING2 ( I,J . INTEGER ; 

К : STRING ) is 

LOC = INTEGER = = 4; 
begin 

if I > 10 then 
return; 
end if; 

LOC := I * J * LOC ; 
if LOC > 100 then 

PUT ( " Product exceeds limit “ ); 
end if; 

if К ( 1 .. 5 ) = К ( 6 .. 10 ) then 
PUT ( " Repeated string " ); 
end if; 

end SOMETHING2; 

Более полное определение спецификации параметров включает указание вида 
связи формальных параметров. Возможны следующие виды связи : in (входной), in out 
(изменяемый), out (выходной). Если вид связи не указывается, то по умолчанию 
принимается значение in. Таким образом, в процедуре SOMETHING все формальные 
параметры (I, J и К) входные, т. е. имеют йид связи in. 

В языке Ада не разрешается изменение значений формальных параметров с видом 
связи in. Поэтому оператор 
I := I * J; 

в теле процедуры SOMETHING2 будет считаться ошибочным, поскольку значение I в 
этом случае изменится. 

По желанию программиста формальным параметрам можно присвоить начальные 
значения. Для этого за обозначением_типа ставятся символ присваивания := и 
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выражение. Такая инициализация разрешена только для формальных параметров с 
видом связи in. 

Проиллюстрируем введенные понятия на примере новой версии нашей процеду¬ 
ры - SOMETHING3: 

procedure SOMETHING3 ( I,J = in out INTEGER ; 

К : in STRING == "CREATURES “ ) is 

LOC : INTEGER := 4; 

begin 

if I > 10 then 
return; 

end if; 

LOC == I * J * LOC ; 

if LOC > 100 then 

PUT ( “ Product exceeds limit “ ) ; 

end if; 

if К < 1 .. 5 )= К < 6 .. 10 ) then 
PUT ( “ Repeated string “ ); 

end if; 

end SOMETHING3; 

В процедуре SOMETHING3 переменные I и J имеют вид связи in out. Переменная К 
имеет вид связи in, у нее есть начальное значение, которое она будет принимать по 
умолчанию. 

В процедуре объявлена еще одна переменная - LOC. Она, так же как и формальные 
параметры, известна только внутри процедуры. Но в отличие от них её нельзя 
поставить в соответствие каким-либо внешним переменным. 

5.1.2. Вызов процедур 

Процедуру можно вызвать несколькими способами. В представленных к настояще¬ 
му моменту программах тела вызываемых процедур размещались внутри программ, 
обращающихся к этим процедурам. Такой способ применим, если тело процедуры 
размещается в вызывающей программе до момента обращения к этой процедуре. 

Если же процедура вызывается из программы на Аде, а тело этой процедуры 
располагается после места ее вызова, то в декларативной части вызывающей програм¬ 
мы следует задать объявление вызываемой процедуры. Объявление подпрограммы 
заключается только в указании ее спецификации, за которой следует символ «;». 
Спецификация процедуры-это зарезервированное слово procedure, за которым сле¬ 
дуют идентификаторлроцедуры и формальная часть (если она имеется). 

Вне зависимости от того, нуждается ли процедура в объявлении, ее можно вызвать, 
если указать имя этой процедуры в вызывающей программе. Если вызываемая 
процедура имеет формальную часть, то при вызове за именем процедуры должен 
располагаться список фактических параметров, заключенный в скобки. 

В процессе выполнения вызываемой процедуры происходит согласование фор¬ 
мальных и фактических параметров, обработка объявлений в процедуре, а затем 
выполнение ее последовательности_операторов с использованием значений фактиче¬ 
ских параметров. Выполнение процедуры заканчивается по операторам end или return, 
если только в процессе выполнения не возникли исключительные ситуации. В предыду¬ 
щих примерах тела процедур располагались так, что для обращения к ним не 
требовались предварительные объявления этих процедур. 

Следующие примеры программ демонстрируют вызов процедур с формальной 
частью и с использованием объявлений процедур. Кроме того, определяется формаль¬ 
ный параметр с видом связи out. 
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Процедура ENVELOP 

with TEXT_IO; use TEXT_IQ; 
procedure ENVELOP is 
lb JJ : INTEGER; 

KK : STRINGd . . 10); . 

LL : STRINGd .. 10); 

procedure SOMETHING4d / J* in out INTEGER; 

К : in STRING := "CREATURES "; 

L . out STRING ) is 

LOC : INTEGER = = 4; 
begin 

if I > lO then 
return; 
end if; 

I := I * J * LOC; LOC := I; 
if LOC > lOO then. 

PUT( " Product exceeds limit "); 
end if; 

if Kd . . 5) = K<6 . . 10) then 
PUT( " Repeated string "); L := K; 
else 

Ld. . 10) := Kd . . 5) & Kd .. 5); 
end if; 

end SOMETHING4; 
procedure INVOKES is 
begin 

SOMETHING4 (II/ JJ, KK, LL); 

— Здесь вызывается процедура SOMETHING4. Факти- 
— ческими параметрами являются : II, JJ, КК И LL. 
end INVOKES; 
begin 

II == 5 JJ == 8; ' 

KK := "XXXXXXYYYYYY"; 

INVOKES; 
end ENVELOP; 

А вот версия той же самой процедуры ENVELOP (Объемлющая) с объявлением 
процедуры SOMETHING4: 

Процедура ENVELOP, в которой используется объявление процедуры 

with ТЕХТ-ІО; use TEXT-IO; 
procedure ENVELOP is 
II/ JJ : INTEGER; 

KK : STRINGd .. 10); 

LL = STRINGd .. 10); 

procedure SOMETHING4(I, J : in out INTEGER; 

К : in STRING := "CREATURES "; 

L : out STRING); 

— Здесь помечено об'явление процедуры SOMETHING4, 

— оно требуется, поскольку процедура INVOKES 

— вызовет процедуру SOMETHING4 до того, как 

— будет определено тело процедуры SOMETHING4. 
procedure INVOKES is 

begin 

SOMETH ING4( II, JJ, KK, LL); 
end INVOKES; 
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procedure SOMETHING4<I / J : in out INTEGER; 

К : in STRING := "CREATURES "; 
L : out STRING) is 
LOC : INTEGER = = 4; 
begin 

if I > 10 then 
return; 
end if; 

LOC := I * J * LOC; I := LOC; 
if LOC > 100 then 

PUT(“ Product exceeds limit"); 
end if; 

if K<1 .. 5) = K(6 .. 10) then 
PUT(" Repeated string"); L:=K; 
else 

L( 1. .10) := K<1. .5) it Ml. .5); 
end if; 

end SOMETHING4; 
begin 

II :=5; JJ ==8; 

KK := "XXXXXYYYYY"; 

INVOKES; 
end ENVELOP; 


5.1.3. Согласование формальных 
и фактических параметров 

Как уже отмечалось, при вызове процедуры производится связывание фактических 
и формальных параметров. При обращении к процедуре SOMETHING4 (Нечто_4) из 
процедуры INVOKES (Вызывающая) фактические параметры II, JJ, КК связываются с 
формальными параметрами I, J, К. Типы формальных и фактических параметров 
должны в точности совпадать. В данном случае обязательна идентичность типов для II 
и I, JJ и J, КК и К. 

Вид связи формальных параметров определяет порядок действий со значениями 
связанных друг с другом формальных и фактических параметров. В нашем примере для 
формального параметра К, имеющего вид связи in, значение фактического параметра 
КК передается в подпрограмму. (Здесь в подпрограмму SOMETHING4 передается 
значение XXXXXYYYYY.) В подпрограмме это значение можно использовать, но его 
нельзя изменять. После выполнения процедуры обратно в вызывающую программу не 
передается никакого нового значения для фактического параметра. Иными словами, 
значение фактического параметра выполняет роль константы в вызываемой под¬ 
программе. 

Если вид связи формального параметра -out, то при вызове процедуры формаль¬ 
ному параметру не передается значение соответствующего фактического параметра. 
Но после окончания выполнения процедуры получившееся значение формального 
параметра передается соответствующему фактическому параметру. В процедуре 
SOMETHING4 формальный параметр L имеет вид связи out, и после завершения 
процедуры его значение передается переменной LL. В данном случае LL получит 
значение ХХХХХХХХХХ. 

Если вид связи формального параметра -in out, то вызываемая процедура начи¬ 
нает выполняться со значением формального параметра, которое будет равно значе¬ 
нию соответствующего фактического параметра. В процедуре ENVELOP фактические 
параметры II и JJ имеют значения 5 и 8. После обращения к процедуре SOMETHING4 
она начнет выполняться с начальными значениями I и J, равными 5 и 8. 
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Значения формальных параметров с видом связи in out можно изменять в 
вызываемой процедуре. Когда процедура закончится, их новые значения будут переда¬ 
ны соответствующим фактическим параметрам. Во время выполнения процедуры 
SOMETHING4 ее формальный параметр I получает новое значение 160. После 
завершения процедуры фактический параметр II получит новое значение 160. Значение 
формального параметра J, которое не меняется в процессе работы процедуры и 
остается равным 8, будет передано фактическому параметру JJ. Присваивание новых 
значений формальным параметрам с видом связи in out разрешено. 

Разумеется, тип формальных параметров может быть любым из знакомых 
читателю-регулярным, комбинированным, ссылочным и т. д. Формальные параметры 
могут также принадлежать и к приватным типам (см. гл. 7). 

Если работа программы закончится аварийно, скажем если будет возбуждена 
исключительная ситуация, то результирующее значение фактического параметра будет 
непредсказуемо. 

Фактическим параметром могут служить переменная или значение выражения. 
Если же соответствующий формальный параметр имеет вид связи in out или out, то 
фактическим параметром может являться только имя переменной или выражение, 
выполняющее преобразование типа для переменной. Например, можно вызвать 
процедуру SOMETHING4 так: 

SOMETHING4 (II, JJ, "ABCDEABCDE", LL); 
поскольку формальный параметр К-входной. Однако обращение вида: 

SOMETHING4 (4, JJ, "ABCDEABCDE", LL); 

будет недопустимо, так как формальный параметр I имеет вид связи in out, а 
соответствующий ему фактический параметр обязан быть именем переменной или 
преобразованием типа для нее. 

5.1.4. Поименованные параметры 
при обращениях к процедурам 

При вызове процедуры SOMETHING4 для передачи значений фактических пара¬ 
метров использовалась позиционная форма записи. В этом случае каждый формальный 
параметр связывается с тем фактическим параметром, который расположен в той же 
самой позиции в списке фактических параметров, что и формальный. 

В языке Ада программист может явно задавать имена формальных параметров, 
соответствующих фактическим, при вызове процедуры. При этом программист должен 
указать имя формального параметра, за которым следует составной символ « = >», и 
затем фактический параметр. Ниже даны эквивалентные варианты обращения к 
процедуре SOMETHING4: 

SOMETHING4 (II, JJ, КК, LL); 

SOMETHING4 (I => II, J => JJ, К = > КК, L = > LL); 

SOMETHING4 (J => JJ, К = > КК, I = > II, L = > LL); 

В двух последних вызовах используется связывание поименованных параметров. При 
связывании поименованных параметров порядок их следования в списке не имеет 
значения. 

В одном и том же обращении можно сочетать поименованные и позиционные 
параметры. В этом случае сначала следует располагать позиционные параметры. 
После того как указан один поименованный параметр, все остальные параметры 
обязаны быть также поименованными. Пример правильного вызова: 

SOMETHING4 (II, JJ, L = > LL, К = > КК); 
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Однако вызов 

S0METHING4 (II, L = > LL, К = > КК, JJ); 

неверен, поскольку за поименованным параметром следует позиционный. 

Если формальный параметр имеет начальное значение по умолчанию, то задавать 
этот параметр при вызове процедуры необязательно. Например, будет корректным 
такое обращение к процедуре: 

S0METHING4 (I = > II, L = > LL, J => JJ); 

Для формального параметра К отсутствует соответствующий фактический параметр, 
поэтому будет использовано принимаемое по умолчанию начальное значение 
CREATURES (Существа). 

5.1.5. Уточнения для формальных параметров 

Уточнения, задаваемые для формальных параметров, должны соблюдаться и 
фактическими параметрами согласно следующим правилам. Если вид связи формаль¬ 
ного параметра -in или in out и этот параметр принадлежит к скалярному типу, то 
значения фактических параметров в момент, непосредственно предшествующий вызову 
процедуры, должны удовлетворять всем уточнениям диапазонов значений формальных 
параметров. Если вид связи формального параметра, опять-таки принадлежащего к 
скалярному типу,- out или in out, то значение формального параметра 1 * должно 
удовлетворять всем уточнениям для фактических параметров. 

Если параметр относится к регулярному, комбинированному или приватному с 
дискриминантами (см. гл. 7) типу, то независимо от вида связи все уточнения для 
формального параметра должны быть соблюдены фактическими параметрами. Это 
относится к моменту времени, непосредственно предшествующему вызову процедуры. 
Применение некоторых из правил для уточнений иллюстрируется процедурой 
MAIN_CALL (Главн_вызов). 


Процедура MA1N_CALL 
procedure MAIN-CALL is 

type REAL-TABLE is array(POSITIVE range <> > 
of FLOAT; 

SOME-TABLE = REAL-TABLE<1 .. 12) 

== (1 .. 12 *> 5.0); 

— Здесь имеется уточнение диапазона 

— индексов. 

CURR-TABLE = REAL-TABLE <1 .. 10) 

I- (1 .. 10 => 5.0); 

— Это - еде одно уточнение диапазона 

— индексов. 

type REC-DI SCR ( STR-LENGTH .• range 1 .. 255 ,= 80) 

is 

record 

LINE-CONT , STRINGd .. STR-LENGTH); 
end record; 

LONG-LINE , REC-DISCR (90); 

— Здесь имеется уточнение дискриминанта. 

REG-LINE , REC-DISCR (75); 

— Это - еце одно уточнение дискриминанта, 
type DIGIT-COUNT is range 0 .. 9; 

subtype FEW—CHOICES is DIGIT-COUNT range 1 .. 5; 


В момент нормального окончания выполнения процедуры-Ярил», перев. 
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II : DIGIT-COUNT ; 

JJ : FEU-CHOICES/ 
procedure CONSTR-PARAM < 

I . DIGIT-COUNT; 

J . in out DIGIT-COUNT; 

X : in out REAL-TABLE; 

FOR-LINE : in out REC-DISCR) is 

begin 

J i“ I +2; 

X X + X; 

FOR—LINE (2Ѳ .. 30) := F0R_LINE(40 .. 50); 
end CONSTR-PARAM; 
begin 

REG-LINEd .. 10) .= “0123456789"; 
for L in 11 .. 75 

loop REG—LINE(L) == ' '; end loop; 

LONG-LINE .= <1 .. 90 => 'A'); 

II == 5; JU :=■ 3; 

CONSTR-PARAM(2 / JJ/ CURR-TABLE/ REG-LINE); 

— Это - правильный вызов/ все уточнения соблюдаются. 
CONSTR-PARAM (13/ JJ, CURR-TABLE/ REG-LINE); 

— Здесь нарушено уточнение диапазона значений. 

— Значение Фактического параметра/ 13/ превышает 

— верхнюю границу диапазона допустимых значений 

— формального параметра I/ равную 9. 

— Возникает исключительная ситуация 
-- CONSTRAINT-ERROR. 

CONSTR-PARAM (II/ JJ/ CURR-TABLE/ REG_LINE); 

— Здесь нарушается уточнение диапазона значений. 

— В результате вычислений формальный параметр J 

— получает значение 7. Это значение передается 

— обратно фактическому параметру JJ/ которое не 

— может быть больше чем 5. Возникает исключитель- 

— ная ситуация CONSTRAINT-ERROR. 

CONSTR-PARAM (3/ JJ/ CURR-TABLE/ LONG-LINE); 

— Здесь уточнение дискриминанта формального 

— параметра не соблюдается фактическим пара- 

— метром. Возбуждается исключительная ситуа- 

— ция CONSTRAINT-ERROR. 

CONSTR-PARAM (3/ JJ/ SOME-TABLE/ REG-LINE); 

— Здесь уточнение диа- 

— пазона индексов формального параметра не 

— соблюдается фактическим параметром/ и по- 

— этому возникает исключительная ситуация 
-- CONSTRAINT-ERROR. 

end MAIN-CALL; 


5.2. ФУНКЦИИ 


Теперь обратимся ко второй разновидности подпрограмм Ады-функциям. Функ¬ 
ция в отличие от процедуры должна вырабатывать некоторое значение. Кроме того, 
вызовы функций представляют собой простейшие выражения, в то время как вызовы 
процедур являются самостоятельными операторами. Тело функции имеет следующий 
вид: 
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function идентификатор_или_обозначение_операции 
необязательная^формальная часть 
return тип_или_ подтип is 
возможные_объявления 
begin 

последовательностьоператоров 
— В последовательностноператоров обязательно 
— должен быть оператор возврата return. 
end идентификатор_или_обозначение_операции; 

Как и для случая процедур, текст, предшествующий зарезервированному слову is, 
образует спецификацию подпрограммы (здесь-функции). Если для названия функции 
используется обозначение операции, то оно должно представлять собой строку 
символов. Если присутствует формальная_часть, то ее формат должен быть таким же, 
как и у формальной части процедуры, за исключением того, что единственно допусти¬ 
мым видом связи для формальных параметров функции может быть in (входной). 

В теле функции обязательно должен присутствовать оператор возврата return. 
Функция заканчивается только после выполнения оператора return. Для функций 
используется иная форма оператора возврата, чем для процедур. Здесь наличие 
выражения, стоящего после зарезервированного слова return, обязательно. Эта форма 
такова: 

return выражение; 

Значение выражения в операторе возврата-это значение, которое вырабатывает 
функция. 

Пример тела функции и ее вызова: 

with ТЕХТ_ІО; use ТЕХТ-ГѲ; 
procedure CALL_OF_FUNCTION is 
II : INTEGER; 

JJ : FLOAT := 5.0; 

function DOUBLE ( I : INTEGER .= -1; 

J : FLOAT 1.0 ) 

return FLOAT is 
К : INTEGER := 5; 
begin 

if I > 0 
then 

return FLOAT< 2 * К * I); 
else 

return 2.0 * J; 
end if; 
end DOUBLE; 
begin 

for M in 1 . . 10 
loop 

II := (-1) ** M; 

JJ := DOUBLE(I Г/ JJ>; 
if ІГ > JJ then 

PUT(" First argument exceeds the second “); 
end if; 
end loop; 

end CALI_OF-FUNCTION; 

Здесь идентификатором функции является слово DOUBLE (Двойной). Выход из 
функции DOUBLE осуществляется по одному из двух операторов возврата. Функция 
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вырабатывает значение типа FLOAT. Имеется формальная часть, в которой приведен 
список из двух параметров: I типа INTEGER и J типа FLOAT. Их вид связи -in, 
поскольку никакие другие виды связи параметров для функций не разрешены. Эти 
параметры имеют начальные значения, которые они будут принимать по умолчанию. 

Поскольку оба формальных параметра из предыдущего примера имеют начальные 
умалчиваемые значения, то будут корректными следующие операторы присваивания: 


JJ := DOUBLE; 
JJ := DOUBLE 
(J = > JJ); 

JJ := DOUBLE 
(I = > II); 


Получается значение 2.0 

По умолчанию I := — 1, и в результате выполнения 
получится удвоенное значение JJ 
Будет использоваться умалчиваемое значение J : = 
1.0. В результате вычислений получится величи¬ 
на, равная десятикратному значению II 


В разд. 4.2 мы упоминали, не вдаваясь в детали, что функции могут вырабатывать 
значения в виде массивов. В этом случае функции можно использовать как имена 
индексируемых компонент. Следующий пример иллюстрирует это положение. 

Пример. Эта программа демонстрирует использование функции в качестве имени 
индексируемых компонент. 

with ТЕХТ-ІО; use ТЕХТ-ІО; 
procedure GET_MULTIPLE-TABLES is 

type TABLE is array(POSITIVE range <>) 
of INTEGER/ 

type TWO-DIM-TABLE is array (POSITIVE range <> / 

POSITIVE range <> ) 
of INTEGER; 

II/ JJ = INTEGER; 

CURR-TWO-TABLE : TWO-DIM-TABLE ( II/ II >; 
package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 

function FILI_TABLE(I, J : INTEGER) 

return TABLE is 
FUN-TABLE : TABLE(I); 

— Эта функция помечает чередующиеся значения 
— J и -J в таблицу FUN-TABLE/ начиная с J/ 

— если J - нечетное, 
begin 

for L in 1 .. I 
loop 

FUN-TABLE(L) := (-1) ** (I + J) * J; 
end loop; 

return FUN_TABLE; 
end FILL-TABLE; 
begin 

GET(II); GET(JJ); 
for LL in 1 .. II 
loop 

— Если JJ положительно/ то поместить 

— таблицу/ полученную с помощью функции 

— FILI _ TABLE/ в главную диагональ дву- 

— мерного массива CURR-TWO-TABLE . 

if JJ > 0 ' 

then 

CURR-TWO-TABLE(LL, LL) == 

FILI_TABLE(II, JJ) (LL); 

— Это индексированная компонента. 

-- Вызов функции FILI _ TABLE ( 11, JJ) 
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— дает массив# a LL - это значение 

— нужной компоненты массива. 

— Обратите внимание на то# что 

— функция вычисляется каждый раз 

— заново при повторном выполнении 

— оператора присваивания. Ото - 

— не слишком эффективно для данной 

— задачи.? 
end if; 

end loop; 

end GET-MULTIPLE-TABLE; 

Когда в разд. 4.2 вводилась общая форма для селектируемых компонент, то 
отмечалось, что имя функции может представлять собой имя, вырабатывающее 
структуру. В этом случае селектируемая компонента может иметь вид 

имя_функции.идентификатор__компоненты 

Эта ситуация демонстрируется в следующем разделе на примере функции 
FIND_COUP_DATE (Найти_дату_купона). 


5.3. ПРИКЛАДНАЯ ПРОГРАММА, 

В КОТОРОЙ ПРИМЕНЯЮТСЯ ФУНКЦИИ 
И ПРОЦЕДУРЫ 

В данном разделе новые введенные понятия будут проиллюстрированы на примере 
программы ACCR_INTEREST (Наросшие_проценты). Эта программа вычисляет на¬ 
росшие проценты по ценным бумагам правительства США, имеющим купон. Наличие 
длинных или коротких купонов не учитывается. Формула для вычисления наросших 
процентов такова: 

Accrint : = Rate / 2 * nofdays / totaldays • parvalue 
Здесь приняты следующие обозначения: 

Accrint наросшие проценты; 

nofdays количество дней, прошедших с момента последней выплаты процентов по 
купону; 

Rate -годовой процент (десятичное число, например 12.5); 

totaldays -количество дней между датой последней выплаты и датой следующей за 
ней выплаты процентов по купону; 

parvalue -номинальное достоинство ценной бумаги (будем считать, что это 100 долл.). 

Выплата по купонам производится два раза в год. На вход программы поступают 
строки, несущие следующую информацию: 


1-7 


8-13 


14-19 


Rate 

(годовой_процент) 

Mat_date 

(срок_выкупа) 


SetLdate 

(дата.приобретения) 


Представлен десятичным числом 

Срок выкупа ценных бумаг в формате ГГММДД. 
Например, 950515 означает 15 мая 1995 г. За¬ 
метьте, что для этого конкретного срока вы¬ 
купа платежи по купонам запланированы на 15 
мая и 15 ноября каждого года 
Дата приобретения ценной бумаги, которая не 
может быть выходным или праздничным 
днем. Она должна предшествовать сроку вы¬ 
купа. 
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Перед этими строками располагаются строки с датами праздников (по одной дате в 
каждой строке). Праздничные дни представлены в формате ГГММДД, а в самой 
первой строке указывается общее число праздников в году. Признаком конца потока 
данных служит строка с отрицательным годовым процентом. 

Программа ACCR INTEREST 


procedure HCCR-INTEREST is 

— Некоторые из употребляемых здесь типов 

— и констант были ранее использованы в 

— программе DATE-CONVERSION из гл. 2. 
type DAY ife 

(MONDAY, TUESDAY, WEDNESDAY, THURSDAY, 

FRIDAY, SATURDAY, SUNDAY); 
subtype WEEKEND is DAY range SATURDAY..SUNDAY / 
type DAY-INT is range 1 .. 31/ 
type JULIAN-DAYS is range 1 .. 366/ 
type MONTH is 

(JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, 
JULY, AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, 
DECEMBER) / 

type YEAR is range Ѳ .. 2050; 
type MONTH-INT is range 1 .. 12/ 
package DAY-IO is new ENUMERATI0N_I0(DAY) / 
use DAY-IO/ 

package MONTH-IO is new ENUMERATION_IO(MONTH) / 
use MONTH-IO; 

package YEAR-10 is new INTEGER_IO(YEAR); 
use YEAR- 10/ 

package MONTH-INT is new INTEGER-I0(MONTH-INT) / 
use MONTH-INT/ 

package DAY-INT-IO is new INTEGER_IO(DAY-INT) / 
use DAY_INT_I0; 
type DATE is 
record 

WEEK-DAY .- DAY / 

MONTH-NAME : MONTH/ 

MONTH-NO : MONTH-INT/ 

DAY-NO : DAY-INT/ 

YTD-DAYS , JULIAN-DAYS/ 

TOTAL-DAYS , INTEGER/ 

YEAR-NO : YEAR/ 
end record/ 

BASE-DATE , constant DATE ,= 

(MONDAY,JANUARY ,1,1,1,1,1984)/ 

— В данной программе предполагается, что во 

— входных даінньіх указываются только даты, 

— следующие после 1 января 1984г. 

— Если потребуется употребить более ранние 

— даты, то следует изменить эту константу. 
BASE-LEAP . constant INTEGER :« 

INTEGER (BASE-DATE. YEAR-NO) / 4 4 - 
INTEGER < BASE-DATE. YEAR-NO) / 400 - 
INTEGER(BASE-DATE.YEAR-NO) / 100/ 

— Эта константа равна количеству високосных 

— лет в период от Ѳ-го года до года 
— BASE-DATE . YEAR-NO . 
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type DAYS-IN_MQNTH is array(MONTH-INT/BOOLEAN) 
Of DAY-INT; 

ACTUAL-DAYS-IN-YEAR = constant DAYS-IN_MONTH 
< (31/31), (28/29), (31,31), (30,30), 

(31,31), (30,30), (31,31), (31,31), 

(30,30), (31,31), (30,30), (31,31) ); 

— Это - об'явление массива-константы, индек- 

— сируемого значениями типа M0NTH-INT, ле- 

— жацими в пределах от 1 до 12, и логичес- 

— кими значениями (TRUE и FALSE), причем 
— FALSE здесь обозначает, что год - не ви- 

— сокосный. 

type RATE is digits 13; 

ACCRUED-INT = RATE; 
type COUPON-SECURITY is 
record 

COUP-DATE : RATE; 

MAT-DATE : DATE; 

SETL-DATE : DATE; 
end record; 

ACT-SECUR : COUPON-SECURITY; 

NEXT-DATE, PREV-COUP-DATE : DATE; 
package RATE-10 is new FLOAT-IO(RATE); 
use RATE-10; 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 

LEAR-YEAR : BOOLEAN; 

NOFDAYS, INTERVDAYS : NATURAL; 

INPUT-LEAP : INTEGER; 

NO—OF—HOLIDAYS, NO-GOOD-HOLIDAYS = NATURAL; 
type HOLIDAYS is array (1 .. NO-OF-HOLIDAYS) 
of DATE; 

ACT-HOLIDAYS : HOLIDAYS; 

GOOD-MAT-DATE, GOOD-SETL-DATE : BOOLEAN; 
GOOD-HOLIDAY, G00D_NEXT_DATE : BOOLEAN; 

— Обратите внимание, что основой функции 
— IS-VALID-DATE и процедуры FILL-IN-DATE 

— служит текст процедуры 

— COUNT-DAYS-AND-CHECK из программы 
— DAYS-CONVERSION (см. гл. 2). Кроме того, 

— заметьте, что об'явления, приведенные 

— выше, известны (видимы) в каждой из 

— следующих ниже подпрограмм, 
function IS-VALID-DATE (FORM-DATE : DATE) 

return BOOLEAN is 

— Эта Функция дает значение TRUE, если 

— дата, представленная переменными 

— FORM-DATE.MONTH-NO, FORM-DATE . DAY-NO 

— и FORM-DATE.YEAR-NO, правильна. В про- 

— тивном случае вырабатывается значение 
— FALSE. У этой Функции имеется всего 

— лишь один Формальный параметр комбини- 

— рованного типа, 
begin 
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— Правильно ли указан год? Если нет/ то 
— Функция даст значение FALSE, 
if FORM_DATE.YEAR-NO < BASE-DATE.YEAR-NO 
then 

return FALSE; 
end if; 

— Правильность месяца не проверяется. 

— Выясним/ правильно ли задано число. 

— Если нет/ то Функция выработает значе- 

— ние FALSE. Но вначале определим/ не яв- 

— ляется ли год високосным. 

if FORM-DATE . YEAR-NO rent 4 = 0 and 
FORM-DATE. YEAR-NO rent 100 /= 0 or 
FORM-DATE. YEAR-NO rent 400 = О 
then 

LEAP-YEAR = =» TRUE; 
else 

LEAP-YEAR := FALSE; 
end if; 

— Теперь можно использовать переменную 
— LEAP-YEAR для обращения к нужному ряду 

— массива ACTUA1 _ DAYS-IN-YEAR . 

if FORM-DATE . YEAR-NO > 

ACTUAL-DAYS-1N-YEAR(FORM-DATE.MONTH-NO, 
LEAP-YEAR); 

then 

return FALSE; 
else 

return TRUE; 
end if; 

end IS-VALID-DATE; 
procedure FILI—IN-DATE 

(PROC-F-DATE , in out DATE; 

GOOD-DATE = in out BOOLEAN) is 

— Эта процедура вычисляет значения некоторых 

— компонент структуры PROC-F-DATE/ причем 

— предполагается/ что значения остальных 
-- компонент - FORM-DATE.MONTH-NO / 

-- FORM-DATE.DAY-NO/ FORM-DATE.YEAR-NO обра- 

— зуют правильную дату. Если это не так/ то 

— переменная GOOD-DATE получает значение 

— FALSE. 

— В формальной части данной процедуры имеются 

— два формальных параметра! PROC-F-DATE ком- 

— бинированного типа и GOOD-DATE логического 

— типа, 
begin 

— 1 Если год задан в форме ГГ/ то он преобра- 

— зуется к представлению в виде четырех цифр, 
if PROC-F-DATE . YEAR-NO < 50 

then 

PROC-F-DATE.YEAR-NO == 

PROC-F-DATE.YEAR-NO + 2000; 
elsif PROC-F-DATE.YEAR-NO < 99 
then 

PROC-F-DATE.YEAR-NO := 

PROC-F-DATE.YEAR-NO + 1900; 
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else 
NULL; 
end if; 

GOOD-DATE := IS-VALID-DATE (PROC-F-DATE); 

— Определим значение переменной 
— YTD-DAYS для этой даты, 
if GOOD-DATE 
then 

PROC_F_DATE.YTD-DAYS .= 

JULIAN < PROC_F_DATE.DAY-NO); 
if PROC_F_DATE.MONTH-NO > 1 
then 

for I in 1 .. PROC_F_DATE.MONTH-NO - 1 
loop 

PROC_F_DATE. YTD-DAYS .• = 

PROC_F_DATE.YTD-DAYS + 

JULIAN(ACTUAL-DAYS-IN_YEAR 
<1/ LEAP-YEAR )); 
end loop; 
end if; 
end if; 

— Теперь определим/ сколько дней прошло от 

— даты отсчета до представленной даты. 

— Вначале/ однако/ вычислим количество 

— прошедших високосных лет. 

INPUT-LEAP := 1 NTEGER ( PROC-F-DATE . YEAR-NO )/4+ 

INTEGER ( PROC-F-DATE . YEAR-NO )/ 4Ѳ0- 
I NTEGER(PROC-F-DATE.YEAR-NO) / 1 Ѳ© ; 
PROC-F-DATE.TOTAL-DAYS ,- 365 * 

INTEGER < PROC-F-DATE.YEAR-NO - 
BASE-DATE.YEAR-NO) + 

INTEGER(PROC-F-DAYS.YTD-DAYS) + 
INPUT-LEAP - BASE-LEAP; 

— Найдем день недели и название месяца. 
PROC-F-DATE . MONTH-NAME = = 

MONTH ' VAL < PROC-F-DATE.MONTH-NO); 

— Вспомните/ что атрибут VAL применим для 

— перечисляемых типов. 

PROC-F-DATE . WEEK-DAY ,= DAY'VAL ( 

(PROC-F-DATE.TOTAL-DAYS + 

DAY'POS(BASE-DATE.WEEK-DAY) - 2) 
mod 7+1 ); 

— Это выражение - довольно сложное. Вначале 

— вычисляется позиция дня недели для даты 

— отсчета (например/ для вторника она будет 

— равна 2)/ затем она добавляется к обцему 

— количеству дней и из полученного числа 

— вычитается 2. Остаток от деления итогово- 

— го числа на 7 дает относительную позицию 

— дня недели для входной даты. Это будет 

— целое число от 1 до 7. Для лучшего пони- 

— мания данного выражения попробуйте вы- 

— числить его вручную для нескольких 

— значений дат. 
end FILL-IN-DATE; 
function FIND_COUP_DATE< 

FORM_MAT_DATE/ FORM-SETL-DATE : DATE) 
return DATE is 



Подпрограммы: процедуры и функции 


143 


— Эта Функция вычисляет значение комбиниро- 

— ванного типа. Выплата денег по купонам 

— производится два раза в год; число и месяц 

— первой ежегодной даты выплаты совпадают с 

— числом и месяцем даты выкупа ценной бума- 

— ги/ а вторая дата выплаты на - 6 месяцев 

— позже первой. 

WORK-DATE-l, WORK-DATE-2 * DATE; 

GOOD-WORK-DATE . BOOLEAN; 
begin 

WORK-DATE-l == FORM-MAT-DATE; 

WORK-DATE-l.YEAR-NO ,= FORM-SETL-DATE.YEAR-NO; 

FILI_IN-DATE < WORK-DATE-1,GOOD-WORK-DA ТЕ ); 

— Может возникнуть вопрос/ почему в качестве 

— фактического параметра процедуры 

— FILL-IN-DATE не используется FORM-MAT-DATE? 
— Дело в том/ что соответствующий формальный 

— параметр этой процедуры имет вид связи 

— in out / что подразумевает возможность 

— изменения FORM-MAT-DATE/ выступающего в 

— роли Формального параметра функции 

— FIND-COUP-DATE/ а это было бы недопустимым. 
W0RK-DATE-2 := WORK-DATE- 1-; 

— Переменные WORK-DATE-l и WORK-DATE-2 

— будут содержать две даты выплаты по купо- 

— нам/ расположенные наиболее близко к дате 

— покупки ценных бумаг. Вычислим дату выпла- 

— ты/ непосредственно предшествующую дате 

— покупки. 

if WORK-DATE-l . YTD-DAYS < 

FORM_SETL_DATE.YTD-DAYS 
then 

if WORK-DATE-l.MONTH-NO < 7 
then 

WORK-DATE-2.MONTH-NO s= 

WORK-DATE-2.MONTH-NO + 6; 

else 

WORK-DATE-2.MONTH-NO := 

WORK-DATE-2.MONTH-NO - 6; 

WORK-DATE-2. YEAR-NO .- = 

WORK-DATE-2.YEAR-NO + 1; 
end if; 
else 

if WORK-DATE-l.MONTH-NO > 6 
then 

WORK-DATE-2.MONTH-NO :w 
WORK-DATE-2.MONTH-NO - 6; 

else 

WORK-DATE-2.MONTH-NO =- 
WORK-DATE-2.MONTH-NO + 6; 

WORK-DATE-2.YEAR-NO := 

WORK-DATE-2.YEAR-NO - 1; 
end if; 
end if; 

FILL_IN-DATE < WORK-DATE-2 / GOOD-WORK-DATE); 
if W0RK_DATE_1.TOTAL-DAYS < 

WORK-DATE-2.TOTAL-DAYS 
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then 

if FORM_SETI_DATE.TOTAL-DAYS > 

WORK-DATE-2.TOTAL-DAYS 
then 

return WORK-DATE-2; 
else 

return WORK-DATE_1; 
end if; 
else 

if FORM-SETL-DA ТЕ .TOTAL-DAYS > 

WORK-DATE—1.TOTAL-DAYS 
then 

return WORK-DATE-l; 
else 

return W0RK_DATE_2; 
end if; 
end if; 

end FIND_COUP_DATE; 

— Обратите внимание/ что тело Функции 

— IS_VALID-DATE предшествует телу процедуры 

— FILI _ IN-DATE/ где эта Функция использует- 

— ся. Поэтому нет необходимости в об'явлении 

— функции IS-VALID-DATE . Аналогичная ситуа- 

— ция наблюдается и в случае процедуры 

— FIND-COUP-DATE: в этой процедуре использу- 

— ется процедура FILI _ IN-DATE/ которая не 

— нуждается в особом об'явлении/ так как 

— ее тело расположено раньше/ чем тело 

— процедуры FIND-COUP-DATE, 
begin 

GET < NO-OF-HOLIDAYS); 

— Далее/ запишем все даты праздников в мас- 

— сив. 

NO-GOOD-HOLIDAYS .=0; 
for I in 1 .. NO-OF-HOLIDAYS 
loop 

NO-GOOD-HOLIDAYS := NO-GOOD-HOLIDAYS + 1; 

GET < ACT-HOLIDAYS(N0-G00D-H0LIDAYS).YEAR-NO / 2); 
GET < ACT-HOLIDAYS<N0-G00D-H0LIDAYS).MONTH-NO /2 ); 
GET(ACT-HOLIDAYS(N0-G00D-H0LIDAYS).DAY-NO / 2); 

FILL_IN-DATE(ACT-HOLIDAYS(N0-G00D-H0LIDAYS) / 
GOOD-HOLIDAY); 

— Процедура FILI_IN X DATE здесь имеет 

— формальные параметры 
— ACT-HOLIDAYS(NO-GOOD-HOLIDAYS) и 
— GOOD-HOLIDAY, 
if not GOOD-HOLIDAY 
then 

— В таблицу будут помечены только пра- 
— вильные значения дат. 

NO-GOOD-HOLIDAYS := NO-GOOD-HOLIDAYS - 1; 
end if; 

SKIP-LINE; 
end 1oop; 

— Считываем входные строки до тех пор/ пока 

— не будет прочитано отрицательное значение 

— процентов выплаты по купону. 
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GET ( ACT-SECUR . COUP-RATE / ?); 
while ACT-SECUR.COUP-RATE <=0.0 
loop 

GET(ACT-SECUR.MAT-DATE.YEAR-NO, 2) i 
GET < ACT-SECUR.MAT-DATE.MONTH-NO у 2)> 

GET(ACT-SECUR.MAT-DATE.DAY-NO / 2)> 

GET < ACT-SECUR.SETL-DATE.YEAR-NO ,2 > ; 

GET<ACT-SECUR.SETL-DATE.MONTH-NO . 2) > 

GET < ACT-SECUR.SETL-DATE.DAY-NO ,2): 

FILL_IN-DATE < ACT-SECUR.MA T-DATE / 
GOOD-MAT-DATE); 

— Процедура FILI_IN-DATE вызывается c 

— фактическими параметрами 

— ACT-SECUR.MAT-DATE и GOOD-MAT-DATE. 

FILL_IN-DATE < ACT-SECUR.SETL-DATE / 
GOOD-SETL-DATE); 

— Процедура FILI_IN-DATE вызывается c 

— Фактическими параметрами 
— ACT-SECUR.SETL-DATE и GOOD-SETL-DATE. 

— Цата приобретения ценных бумаг не должна 

— быть больше даты выкупа. Если же это 

— происходит/ то переменная GOOD_MAT_DATE 

— получает значение FALSE. 

If ACT-SECUR . MAT-DATE . TOTAL-DAYS <= 

ACT-SECUR.SETL-DATE.TOTAL-DAYS 
then 

GOOD_MAT_DATE == FALSE; 
end if; 

— В выходные дни нельзя приобретать ценные 

— бумаги. Если обнаружено/ что дата приоб- 

— ретения попадает на выходные дни/ то 

— значение переменной G00D-SETI _ DATE уста- 

— навливается равным FALSE. 

if ACT-SECUR . SETL-DATE . WEEK-DAY in WEEKEND 
then 

GOOD-SETL-DATE == FALSE; 
end if; 

— По праздникам также нельзя приобретать 

— ценные бумаги. Если дата приобретения 

— попадает на праздник/ то переменная 

— GOOD-SETL-DATE получает значение FALSE, 
for I in 1 .. N0-G00D-H0LIDAYS 
loop 

exit when not GOOD-SET!_DATE; 

if ACT-HOLIDAYS(I).TOTAL-DAYS = 

ACT-SECUR.SETL-DATE.TOTAL-DAYS 
then 

GOOD-SETL-DATE := FALSE; 
end if; 
end loop; 

if G00D_MAT_DATE and GOOD-SETL-DATE 
then 

— Найти предыдущий день выплаты 
— денег по купону. 

PREV-COUP-DATE == FIND_COUP_DATE< 

ACT-SECUR . MAT-DATE , 

ACT-SECUR.SETL-DATE); 


618 
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— Здесь вызывается Функция 
— FIND_COUP_DATE с фактическими парамет- 

— рами ACT-SECUR . MAT_DATE и 

-- ACT-SECUR . SETI _ DATE . Она вырабатывает 

— значение типа DATE. Здесь можно было 

— бы употребить и префиксную форму за- 

— писи/ например. 

— FIND_COUP_DATE < ACT_SECUR . MAT_DATE / 

-- ACT_SECUR.SETL_DATE)-MONTH-NO или 
— FIND_COUP_DATE(ACT-SECUR.MAT-DATE, 

— ACT-SECUR.SETL-DATE).DAY-NO. 

NEXT-DATE.DAY-NO := PREV-COUP-DATE.DAY-NO; 
— Найдем дату следующего платежа по 

— купону. Здесь лучше бы было написать 

— процедуру, которая вычисляла бы сразу 

— и PREV-COUP-DATE, и NEXT-DATE. Пос- 

— мотрите упр.З в конце данной главы, 
if PREV-COUP-DATE . MONTH-NO < 7 

then 

NEXT-DATE.MONTH-NO == 

PREV-COUP-DATE.MONTH-NO + 6; 

NEXT-DATE.YEAR-NO := 

PREV-COUP-DATE.YEAR-NO; 

else 

NEXT-DATE.MONTH-NO == 

PREV-COUP-DATE.MONTH-NO - 6; 

NEXT-DATE.YEAR-NO := 

PREV-COUP-DATE.YEAR-NO + 1; 
end if; 

FILL_IN-DATE(NEXT-DATE,GOOD-NEXT-DATE); 

— Вычислим наросшие проценты. 

NOFDAYS : = ACT-SECUR.SETL-DATE.TOTAL-DAYS 

- PREV-COUP-DATE.TOTAL-DAYS; 
INTERVDAYS ; = NEXT-DATE.TOTAL-DAYS 

- ACT-SECUR.SETL-DATE.TOTAL-DAYS; 
ACCRUED-INT == ACT-SECUR.COUP-RATE / 2.0 * 

RATE(NOFDAYS) / RATE(INTERVDAYS); 

PUT(" The accr. interest for the security" 

8t " maturing “); 

PUT(ACT-SECUR.MAT-DATE.YEAR-NO, 2); 

PUT(ACT-SECUR.MAT-DATE.MONTH-NO, 2); 

PUT(ACT-SECUR.MAT-DATE.DAY-NO, 2); 

NEW-LINE; 

PUT(" is "); 

PUT(ACCRUED-INT, 8,2); 

NEW-LINE; 

else 

— Обнаружены неправильные даты. 

PUT(" Wrong maturity or settlement date"); 
end if; 

SKIP-LINE; 

GET < ACT-SECUR.COUP-RATE, 7); 
end loop; 

end ACCR-INTEREST; 
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5.4. ПЕРЕКРЫТИЕ ПОДПРОГРАММ 

В языке Ада один и тот же идентификатор можно употреблять для обозначения 
различных подпрограмм. В этом случае идентификатор называется перекрытым. 
Разумеется, при любом вызове перекрытой подпрограммы должна существовать 
возможность среди множества подпрограмм выбрать нужную. В противном случае 
вызов будет неоднозначным. 

Мы уже пользовались перекрытыми подпрограммами, например, каждый раз, 
когда обращались к подпрограммам GET и PUT. Мы употребляли один и тот же 
идентификатор GET (или соответственно PUT) для чтения (или записи) строк симво¬ 
лов и значений целого, плавающего и перечисляемого типов. 

Ниже дан список спецификаций подпрограмм GET и PUT, составляющих часть 
родового пакета ТЕХТ_ІО. Пометим для удобства эти процедуры как Ргос_1... Ргос_7. 
procedure GET < ITEM : out CHARACTER); — Proc_l 

procedure GET(ITEM: out STRING); — Proc_2 

procedure PUT(ITEM: in CHARACTER); — Proc_3 

procedure PUT<ITEM : in STRING); — Proc_4 

Для пакета INTEGER_IO, где NUM принадлежит к целому типу, a FIELD (поле) имеет 
натуральный целый подтип, мы использовали спецификацию: 
procedure GET (ITEM = out NUM; 

WIDTH : in FIELD == 0); — Proc_5 

В пакете FLOAT_IO (в спецификациях подпрограмм ввода-вывода) используются 
инициализированные переменные целого типа и переменная NUM типа FLOAT. 
Переменная NUM здесь отличается по типу от одноименной переменной из пакета 
INTEGER_IO. Ниже приведены некоторые из спецификаций процедур PUT и GET: 

DEFAULT_F0RE : FIELD == 2; 

DEFAULT_AFT = FIELD == NUM'DIGITS - 1; 

DEFAULT_EXP : FIELD == 3; 

procedure PUT(ITEM = in NUM; 

FORE = in FIELD == DEFAULT-FORE; 

AFT : in FIELD := DEFAULT-AFT; 

EXP : in FIELD == DEFAULT_EXP; 

— Proc_6 

procedure GET(I ТЕМ : out NUM; 

WIDTH: in FIELD == 0); — Proc_7 


Пример. Проиллюстрируем применение перекрытых процедур. Пусть имеются такие 
объявления переменных: 

I : INTEGER; 

СН : CHARACTER; 

F : FLOAT; 

STR : STRING; 

Ниже приведены вызовы процедур. Предполагается, что все эти процедуры доступны. 

Вызов Описание 

PUT('A'); Вызывается процедура Ргос_3. 

Константа 'А' принадлежит к типу CHARACTER, а 
эта процедура-единственная из процедур с именем 
PUT, в которой формальный параметр имеет тип 
CHARACTER 

10* 










GET(CH); 


GET(STR); 


PUT("Tomorrow"); 


GET(I) 


Вызывается процедура Proc_l. 

Переменная CH имеет тип CHARACRER, а Ргос_1 - 
единственная из процедур с именем GET, в которой 
формальный параметр относится к типу CHARAC¬ 
TER 

Вызывается процедура Ргос_2. 

Переменная STR принадлежит к типу STRING, а 
Ргос_2-единственная из процедур с именем GET, в 
которой формальный параметр имеет тип STRING 

Вызывается процедура Ргос_4. 

Константа Tomorrow (Завтра) относится к типу STRING, 
а Ргос_4-единственная из процедур с именем PUT, в 
которой формальный параметр имеет тип STRING 

Вызывается процедура Ргос .5. 

Тип переменной I-INTEGER, а Ргос 5-единственная 
среди процедур с именем GET, в которой формаль¬ 
ный параметр имеет тип INTEGER. Второй аргумент 
отсутствует, и ширина считываемого поля получает 
значение по умолчанию 


PUT(F, FORE = > 7, AFT = > 3, Вызывается процедура Ргос, 6. 

ЕХР = > 3); Тип F-FLOAT, а Ргос_6 единственная среди проце¬ 

дур с именем PUT, обладающая формальным пара¬ 
метром типа FLOAT. Здесь применена форма записи 
с поименованными компонентами 


GET(F, 7); Вызывается процедура Ргос_7. 

Тип переменной F-FLOAT, a ProcJ7- единственная 
из процедур с именем GET, имеющая формальный 
параметр типа FLOAT 


Перекрытие подпрограмм будет восприниматься вполне естественно, если упот¬ 
реблять имена, несущие определенный смысл для программиста. Более того, в качестве 
имен функций можно использовать названия операций, например: +, —, *, / и **. Их 
можно применить, скажем, для типов, у которых эти операции отсутствовали. Это 
оправдано в тех случаях, когда способ определения новых операций будет напоминать 
разработчику об их первоначальном значении. Например, в языке Ада отсутствует 
операция возведения плавающего числа в степень, представленную также плавающим 
числом. Можно написать функцию, обозначаемую как **, которая перекроет операцию 
**. Формальная часть такой функции будет содержать два параметра типа FLOAT. 
Можно также определить, например, новый тип COMPLEX (комплексный), который 
будет предназначен для моделирования свойств комплексных чисел. Для этого нового 
типа можно ввести операцию умножения, которая перекроет символ имеющейся 
операции *. Умножение матриц-это еще один пример возможного перекрытия 
символа операции *. 

Пример. Здесь приводится пример перекрытия операций для типа DATE (Дата), 
использовавшегося в программе ACCR JNTEREST. Предполагается, что тело функции 
IS_VALID_DATE (Проверка_правильности_цаты), тело процедуры FILL_IN_DATE 
(Заполнить_дату) и декларативная часть процедуры ACCR_INTEREST предшествуют 
описанным здесь функциям. Объединение всех этих подпрограмм в один пакет будет 
выполнено в гл. 7. 
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function и <«" (X/Y : DATE == BASE-DATE) 
return BOOLEAN is 

— Здесь считается/ что дата состоит из следующих 

— компонент: MONTH-NO, YEAR—N0 И DAY-N0 

— (месяц/ год и день). 

L0CAI _ G00D-X / LOCAL-GOOD-Y = BOOLEAN/ 

LOCAL -Х/ LOCAL-Y .• DATE/ 
begin 

LOCAL-X := X/ LOCAL-Y := Y; 

— Переменные X и Y - это входные формальные 

— параметры. Их нельзя использовать при обра- 

— щении к FILI _ IN—DATE/ так как значения вхо- 

— дящих в них компонент могут быть изменены. 
FILL-IN-DATE (LOCAL -Х/ L0CAL-G00D-X ); 
FILL-IN-DATE (LOCAL-Y/ L0CAL-G00D-Y); 

if L0CAL-G00D-X and L0CAL-G00D-Y and 

LOCAL-X.TOTAL-DAYS <= L0CAL_Y.TOTAL-DAYS 
then 

return TRUE; 
else 

return FALSE; 
end if; 

— Эту же функцию можно было бы реализовать 

— просто с помощью сравнения соответствующих 

— компонент даты/ например : 

-- if X. YEAR-NO < Y.YEAR-NO or 

X.YEAR-NO = Y.YEAR-NO and 
X.MONTH-NO < Y.MONTH-NO or 
X.YEAR-NO - Y.YEAR-NO and 
X.MONTH-NO = Y.MONTH-NO and 
X.DAY-NO <= Y.DAY-NO 

— then return TRUE; 

— else return FALSE; 

— end if; 

— В первом варианте/ однако/ выполняется до- 

— полнительная проверка правильности даты, 
end "<="; 

— В приведенной ниже Функции предполагается/ что 

— заданный вторым операндом временной интервал 

— (год/ месяц/ день) - YEAR—N0 / MONTH—N0 и DAY-NO - 

— отсчитывается относительно первого операнда 

— (т.е. X)/ а не от нулевого года как 

— остальные даты, 
function "+“ (X/Y : DATE ) 

return DATE is 

LOCAI_GOOD-2 / LEAP-2 . BOOLEAN; 

LOCAL-Z = DATE; 
begin 

LOCAL-2.DAY-NO := X.DAY-NO + Y.DAY-NO; 

LOCAL-Z.MONTH-NO := X.MONTH-NO + Y.MONTH-NO; 
LOCAL-2.YEAR-NO ■- X.YEAR-NO + Y.YEAR-NO; 
if LOCAL-2.MONTH-NO > 12 
then 

LOCAL-2.YEAR-NO LOCAL-Z.YEAR-NO + 1; 

LOCAL-2.MONTH-NO .= L0CAL_Z.MONTH-NO - 12; 
end if; 
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— Проверить/ не является ли полученный год 

— високосным. 

it LOCAL-2 . YEAR-NO rem 4 - 0 and 

LOCAL-2.YEAR-NO rem 100 /= 0 and 

LOCAL-2.YEAR-NO rem 400 = О 

then 

LEAP-2 := TRUE; 
else 

LEAP-2 : = FALSE; 
end if; 

— Теперь для обращения к нужной строке массива 
— ACTUAI — DAYS-1N_YEAR можно использовать 

— переменную LEAP-2 . 
if LOCAL-2 . DAY-NO > 

ACTUAL-DAYS-IN-YEAR < LOCAL-2.MONTH-NO / LEAP-2) 
then 

LOCAL-2.DAY-NO =* LOCAL-2.DAY-NO - 
ACTUAL-DAYS-1N_YEAR < LOCAL-2.MONTH-NO / LEAP-2); 

LOCAL-2.MONTH-NO .= LOCAL-2.MONTH-NO + 1; 
if LOCAL-2.MONTH-NO > 12 
then 

LOCAL-2.YEAR-NO := LOCAL-2.YEAR-NO + 1; 

LOCAL-2.MONTH-NO == LOCAL-2.MONTH-NO - 12; 
end if; 
end if; 

FILL-IN-DATE (LOCAL-2, L0CAL-G00D-2); 
return LOCAL-2; 
end "+"; 

Пусть эти функции составляют часть объявлений подпрограммы, содержащей 
также следующие объявления: 

АСТ_Х, ACT_Y, ACT_Z : DATE; 

и каждая из этих переменных имеет корректное значение даты. Тогда можно записать: 

if АСТ-Х <= ACT-Y 
then 

АСТ-Х := АСТ-Х + ACT-Z; 
else 

ACT-Y := ACT-Y + ACT-2; 
end if; 


Здесь операции "<=" и в которых участвуют переменные АСТ_Х, ACT-Y и 
ACT_Z, перекрыты. Транслятор сможет подставить верную функцию после проверки 
типов операндов. 


5.5. РЕКУРСИВНЫЕ ВЫЗОВЫ ПОДПРОГРАММ 

Функции и подпрограммы в языке Ада могут быть рекурсивными. Это означает, 
что они могут вызывать сами себя. Рекурсия является мощным средством языка, 
позволяющим зачастую сгенерировать и выполнить большое количество операторов 
при записи относительно небольшого числа строк программы. Однако проследить за 
работой рекурсивных программ будет непростой задачей. Приведем несколько неслож¬ 
ных примеров рекурсивных программ. Один из них-функция, вычисляющая факто¬ 
риал положительного целого числа. 
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function FACTORIAL < I = NATURAL ) 
return NATURAL is 

begin 

if I * 0 
then 

return 1/ 
else 

return I* FACTORIAL!1-1); 

— Здесь Функция FACTORIAL вызывает сама 

— себя/ фактическим параметром является 1-1. 
end if; 
end FACTORIAL; 

Если переменная II имеет тип NATURAL (Натуральный), то обратиться к функции 
FACTORIAL можно следующим образом: 

II := FACTORIAL (5); 

В результате получится число 120 = 5x4x3x2x1. Вначале происходит вызов 
функции FACTORIAL с фактическим параметром 5. Этот параметр-входной, как и 
вообще все параметры функций. Функция FACTORIAL выполняется с начальным 
значением I, равным 5. Затем управление попадает на оператор 
return I * FACTORIAL (1-1); 

Он осуществляет еще одно обращение к функции FACTORIAL, на этот раз с 
фактическим параметром 1—1=4. 

Обратите внимание, что вызов со значением 5 пока не завершился, так как 
выражение I * FACTORIAL (1 — 1) еще не вычислено. Что произойдет с незавершенным 
вызовом с фактическим параметром 5 при выполнении вызова с фактическим пара¬ 
метром, равным 4? Среда незавершенного вызова сохранится, т.е. будет запомнен 
адрес точки прерывания, будут сохранены значения переменных, параметров и т. д. 
Сохранение среды для незавершенных вызовов производится по принципу стека, т.е. 
«первым пришел-последним вышел». Оно будет выполняться до тех пор, пока не 
станет возможным непосредственное вычисление выражения I * FACTORIAL (I — 1), 
т. е. пока функция FACTORIAL (I - 1) не выработает значение. 

Если мы проследим далее за выполнением этой функции, то увидим, что среды 
вызовов для фактических параметров, равных 4, 3, 2 и 1, будут сохранены, поскольку 
для вычисления выражения I * FACTORIAL (I — 1) требуется конкретное значение 
функции FACTORIAL (I — 1). Когда, наконец, произойдет обращение к FACTORIAL 
(0), в системе будут уже храниться данные о пяти незавершенных вызовах. Верхнее 
положение в стеке занимает FACTORIAL (1) (последний незавершенный вызов), а 
нижнее -FACTORIAL (5) (самый первый вызов). После завершения вызова FACTO¬ 
RIAL (0) вырабатывается значение, равное 1. Затем в свою очередь заканчивается 
выполнение FACTORIAL (1). Этот незавершенный вызов был самым последним в 
стеке, поэтому он выполняется в первую очередь. В результате получается 1. После 
этого становится возможным выполнение FACTORIAL (2), что даст 2. Потом 
последовательно выполнятся вызовы FACTORIAL (3), FACTORIAL (4) и, в конце 
концов, FACTORIAL (5). В итоге получится 120. 

Все подпрограммы языка Ады реентерабелъны. Значение термина « реентерабель¬ 
ный» легче объяснить по принципу «от противного». Подпрограмма, которая ведет 
себя по-разному в разные промежутки времени при вызовах с одинаковыми значе¬ 
ниями фактических параметров и переменных, известных за ее пределами, не является 
реентерабельной. Предположим, например, что имеется подпрограмма, которая при 
первом вызове присваивает некоторым своим локальным переменным значения, 
известные только внутри ее. (В противоположность нелокальным переменным, кото- 
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рые могут быть известны также и вне этой подпрограммы.) Благодаря установленным 
значениям этих локальных переменных, при втором вызове подпрограмма будет 
выполняться в иной логической последовательности, чем при первом обращении. Эта 
подпрограмма нереентерабельна. 

В языке Ада не допускается такое поведение подпрограмм, поскольку обработка 
декларативной части подпрограмм выполняется при каждом вызове заново. Заметьте, 
однако, что каждая такая «обработка» требует дополнительных затрат времени на 
вызов подпрограммы. Среди прочих преимуществ свойство реентерабельности пре¬ 
доставляет, например, возможность использовать в нескольких программах на языке 
Ада только одну копию нужной подпрограммы. При этом все программы могут 
одновременно обращаться к одной и той же подпрограмме. 

Теперь продемонстрируем использование рекурсивных подпрограмм как мощного 
выразительного средства программирования, а также их связь е рекурсивными опреде¬ 
лениями ссылочных типов. Здесь будет приведена модификация программы АС- 
CESS_GRADES из гл. 3. Входные данные программы те же, что и раньше. Как и в 
программе ACCESS_GRADES, информация, необходимая для оценки каждой конт¬ 
рольной работы, помещается в паре строк следующего формата. В первой строке 
имеются такие поля: 

Позиции Данные 

1-5 Название (ID) предмета, например МАТН1 (мате¬ 

матика № 1) или ENGL5 (английский язык № 5) 

6-7 Число вопросов в контрольной работе (от 20 до 50) 

Во второй строке располагаются ключи ответов. Ключ-это последовательность цифр 
от 1 до 5, показывающая номера правильных вариантов ответов. Число цифр в этой 
строке равно количеству вопросов, указанному в первой записи. Признаком конца 
последовательности строк первого и второго рода служит запись с обозначением 
названия предмета ХХХХХ. 

Остальные входные строки представляют собой наборы ответов студентов. В 
первых десяти позициях размещается личный номер (ID) студента, а в следующих пяти 
позициях-название предмета. Сами ответы начинаются с шестнадцатой позиции. 
Признаком конца файла служит запись с номером студента, равным 9999999999. Заметьте, 
что студент может выполнять несколько контрольных работ по разным предметам. 
Строки с ответами студентов следуют в произвольном порядке. Каждый студент 
может выполнить не более 25 разных контрольных работ, что соответствует приблизи¬ 
тельно семи предметам за семестр. На рис. 3.7 был дан пример ключей ответов к 
контрольным работам, а на рис. 5.1 приводятся примерСі строк с идентификаторами 
студентов и их ответами. 

1234567890С0МР1123451234555555111115 
1111 199999ENGL1333335555533333555553333 
111111111 1ENGL1 12345Б7В9012345Б78901234 
ИББББББВВМАТН12222222222333333333322 
2222222222ENGL 1555555555555555555555555 
9999999993 

Рис. 5.1 . Тестовые данные: пять ответов студентов. 

Выходные данные модифицированной программы будут отличаться от того, что 
выдавала программа ACCESS_GRADES. Для каждой вводимой строки с ответами 
студента строится или обновляется ведомость успеваемости этого студента путем 
добавления названия предмета и оценки за контрольную работу. После окончания 
считывания всех строк с ответами на печать выводится список сведений об успе¬ 
ваемости студентов. Он печатается по возрастанию номеров студентов. Каждая 
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ROOT_PTR 




Рис. 5.2. Пример двоичного дерева. 

выходная запись списка содержит информацию об одном студенте: номер студента, 
изучаемые им предметы, оценки за контрольные работы. 

Сведения об успеваемости студентов образуют структуру данных, называемую 
двоичным деревом. Организация двоичного дерева показана на рис. 5.2. На нем 
изображен окончательный вид дерева для входных данных, приведенных на рис. 5.1. 

Сведения об успеваемости студентов мы идентифицируем по номерам студентов, 
считая при этом, что у каждого студента есть свой неповторяющийся личный номер. 
Одно из преимуществ организации данных в виде двоичного дерева состоит в том, что 
если номера студентов представляют собой случайную величину с равномерным 
законом распределения, то добавление, выборка и обновление сведений об успе¬ 
ваемости осуществляются достаточно просто и быстро. 

Программа RECUILPROCLGRADES 

with ТЕХТ-ІО; use TEXT -ІО/ 
procedure RECUR-PROC-GRADES is 

package INT_IO is new INTEGER_IO(INTEGER); 
use INT_IO; 

type CHOICES is range 1 . . 5; 
type POSSIBLE-QUESTIONS is range 20 .. 50; 
package CHO-IO is new INTEGER-IO!CHOICES); 
use CHO-IO; 

package POSS-IO is new 

INTEGER—I0(POSSIBLE—QUESTIONS); 

use POSS-IO; 

DNO-QUESTIONS : POSSIBLE-QUESTIONS; 
type ANSWERS is array ( 1 .. DNO-QUESTIONS ) of 
CHOICES; 

type TEST-KEY; 

— Незавершенное об'явление типа/ такое же самое/ 

— как и в программе ASSESS-GRADES . 
type TEST-KEY—PTR is access TEST-KEY; 
type TEST-KEY is 
record 

SUBJ : STRING!1 .. 5); 

N0_QUESTI0NS = POSSIBLE-QUESTIONS; 

KEY-ANSWERS : ANSWERS; 

NEXT-TEST : TEST-KEY—PTR; 
end record; 

CURR-TEST/ START-TEST = TEST-KEY-PTR; 
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GOOD-ANSWERS : INTEGER ; 
type IN-REC is 
record; 

STUDENT-ID = STRING < 1 .. 10); 

SUBJECT-ID : STRING ( 1 .. 5 ); 
STUDENT-ANSWERS ANSWERS; 
end record; 

CURR-REC : IN-REC; 

— До этого места текст данной программы 

— совпадает с текстом программы 

— ACCESS-GRADES ив гл.З. Дальше добав- 

— ляются об'явления/ необходимые для 

— построения двоичных деревьев, 
type T-PAIR is 

— Этот тип об'единяет сведения о 

— предмете и оценке за него. Если 

— название учебного курса - ENGL/ то 

— для этого предмета могут быть следую- 

— щие названия контрольных работ: 

— ENGL1 / ENGL2 и ENGL3. 

record 

SUBJ-MAT . STRING < 1 .. 5 ); 

SCORE : NATURAL; 
end record; 

CURR-PAIR : T-PAIR; 

type SEMESTER-TESTS is array (1 .. 25 ) 
of T-PAIR; 

type BIG-REC is 
record 

— Счетчик NO-TESTS подсчитывает количество 
— контрольных работ у студента. 

BIG-ST-ID : STRING < 1 .. 10 ); 

NO-TESTS . NATURAL; 

ST-TESTS . SEMESTER-TESTS; 
end record; 
type TREE-RECORD; 

type TREE-REC-PTR is access TREE-RECORD; 
type TREE-RECORD is 
record 

LEFT-PTR : TREE-REC-PTR; 

INFO : BIG-REC; 

RIGHT-PTR = TREE-REC-PTR; 
end record; 

ROOT-PTR = TREE-REC-PTR; 

— Переменная/ указывающая на вершину двоичного 

— дерева,- это единственная переменная/ требу- 

— юцаяся для идентификации этого дерева, 
procedure INSERT_OR_UPDATE_STUDENT 

< FORM-ST-ID = STRING ; 

FORM-T-PAIR : T-PAIR ; 

CURR-TREE : in out TREE-REC-PTR ) is 

— Эта процедура вставляет структуру/ 

— содержащую сведения о студентах, или 

— изменяет данные в ней. На эту структу- 

— ру указывает ссылочная переменная 

— типа TREE-REC-PTR . CURR-TREE факти- 

— чески будет указывать на тот иденти- 
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— фикатор студента/ который равен 

— FORM_ST_ID. Если он не обнаружен/ то 

— создается новая структура со сведени- 

— ями о студенте/ которая будет проини- 
—диализирована значениями FORM_ST_ID и 
— FORM-T-PAIR. 

begin 

if CURR-TREE = NULL 

— Этот оператор дает значение TRUE только в 

— том случав/ когда значение личного номера 

— студента/ хранящееся в FORM-ST-ID, не на- 

— ходится в дереве, 
then 

CURR-TREE :* new TREE-RECORD ; 

CURR-TREE.INFO.BIG-ST-ID == FORM_ST_ID; 
CURR-TREE.INFO.NO-TESTS 1; 

CURR-TREE.INFO.ST-TESTS(l) == FORM-T-PAIR; 

-- Вспомните, что CURR-TREE.LEFT-PTR и 
— CURR-TREE.RIGHT-PTR инициализируются значе- 

— нием NULL самой Ада-системой . Теперь 

— CURR-TREE.all - это новая структура с дан- 

— ными о студенте. Для тестовых данных, при- 

— веденных на рис.5.1, данная точка программы 

— будет пройдена пять раз. 

elsif FORM-ST-ID < CURR-TREE . INFO. В IC-ST-ID 
— Для указанных тестовых данных это условие 

— будет справедливо один раз при добавлении 

— данных для личного номера студента, равно- 

— го 1111199999, два раза для номера 

— 1111111111, один раз для 1188888838 и ни 

— одного раза для номера 2222222222. 
then 

INSERT_OR_UPDATE_STUDENT ( FORM-ST-ID , 

FORM_T_PAIR, CURR-TREE.LEFT-PTR )i 
— В этом операторе производится рекурсивный 

— вызов процедуры INSERT-OR-UPDATE-STUDENTS . 
— Текущая среда вызова сохраняется, и про- 

— цедура вызывается повторно с фактическим 

— параметром, равным левому указателю для 
— CURR-TREE. Вызов завершается, после чего 

— возможность несохранения предыдущего 

— вызова существует только тогда, когда 

— CURR-TREE пуст или если найден номер сту- 

— деНта, равный FORM-ST-ID. 

elsif FORM_ST_ID > CURR-TREE.INFO.BIG-ST-ID 
— Это условие будет истинно один раз при 

— добавлении 1188888888 и один раз при до- 

— бавлении 2222222222. 
then 

INSERT_OR_UPDATE_STUDENT ( FORM-ST-ID , 

FORM-T-PAIR, CURR-TREE.RIGHT-PTR )> 

— Этот оператор представляет собой рекур- 

— сивное обращение к процедуре 

— INSERT-OR-UPDATE-STUDENT . Среда текущего 

— вызова сохранится, а процедура вызывается 

— повторно со значением правого указателя 
-- для CURR-TREE. 

else 
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— Изменить данные в структуре/ содержащей 

— сведения о данном студенте. Для приве- 

— денных тестовых данных эти операторы бу- 

— дут выполнены дважды для номера 

— 1111111111 и один раз для номера 

— 2222222222 . 

CURR_TREE . INFO . NO-TESTS := 

CURR-TREE.INFO.NO-TESTS + 1; 
CURR-TREE.INFO.ST-TESTS ( 

CURR-TREE. I NFO. NO-TESTS) := FORM-T-PAIR; 
end if; 

end INSERT_OR_UPDATE_STUDENT; 

procedure LIST-STUDENTS(FORM-TREE : TREE-REC-PTR) 
is 

— Эта процедура выводит список сведений обо 

— всех студентах/ информация о которых хранит- 

— ся в двоичном дереве. В самом начале зада- 

— ются данные о вершине дерева, 
begin 

if FORM-TREE /= NULL 

— Если FORM-TREE не равно NULL/ то программа 

— попытается вывести список сведений о сту- 

— дентах/ хранящихся в ветвях двоичного де- 

— рева FORM-TREE в соответствии с перечис- 

— ленными ниже условиями, 
then 

—' Вначале будут приведены данные из левых 

— ветвей. 

LIST-STUDENTS ( FORM-TREE . LEFT-PTR ); 

— Эта точка программы помечается обозначе- 

— нием **АА**. 

— Затем будет отображена информация о сту- 

— дентах. 

PUT ( FORM-TREE.INFO.BIG-ST-ID ); 
for I in 1 .. FORM-TREE.INFO.NO-TESTS 
loop 

PUT(FORM-TREE.INFO.ST-TESTS(I).SUBJ-MAT); 

PUT(FORM-TREE.INFO.ST-TESTS(I).SCORE); 
end loop; 

— В завершение выдаются сведения из правых 

— ветвей. 

— Эта точка программы помечается как **ВВ**. 
LIST-STUDENTS ( FORM-TREE . RIGHT-PTR ); 

— Эта точка программы помечается как **СС**. 
— Приведенный порядок действий подразумевает/ 

— что структуры со сведениями о студентах 

— будут выводиться в порядке возрастания 

— личных номеров студентов, 
end if; 

end LIST-STUDENTS; 
beg ip 

CURR-TEST new TEST-KEY; 

GET(CURR-TEST.SUBJ); 
while CURR-TEST.SUBJ /= ‘‘XXXXX“ 
loop 

— Здесь строится список контрольных работ 

— (аналогично списку для программы 
-- ACCESS-GRADES из гл.З). 



mi 
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GET < CURR-TEST . NO-QUESTIONS/2) ; 

DNO-QUESTIONS == CURR-TEST.NO-QUESTIONS; 
SKIP-LINE; 

for I in 1 .. CURR-TEST.NO-QUESTIONS 
loop 

GET(CURR-TEST.KEY-ANSWERS (I)/ 1); 
end loop; 

if START-TEST = NULL 
then 

— START-TEST равно NULL только в самом 

— начале. 

START-TEST == CURR-TEST; 
else 

CURR-TEST.NEXT-TEST := START-TEST; 

START-TEST := CURR-TEST 

— Каждая новая контрольная работа ставится 

— в начало списка, 
end if ; 

SKIP-LINE; 

CURR-TEST .= new TEST-KEY; 

GET(CURR-TEST.SUBJ); 
loop; 

P-LINE; 

( CURR-REC.STUDENT-ID ); 
le CURR-REC.STUDENT-ID /= "9999999999" 
loop 

GET (CURR-REC.SUBJECT-ID); 

CURR-TEST == START-TEST; 
while CURR-TEST /= NULL or 

CURR-TEST.SUBJ /= CURR-REC.SUBJECT-ID 

loop 

— Поиск в списке предмета/ по которому 
— проводится контрольная работа. 

CURR-TEST :« CURR-TEST.NEXT-TEST; 
end loop; 

if CURR-TEST.SUBJ = CURR-REC.SUBJECT-ID 
then 

— Если результат проверки - TRUE/ то предмет 

— найден. В противном случае такого 

— названия предмета нет в списке. 
GOOD-ANSWERS == О; 

for J in 1 .. CURR-TEST.NO-QUESTIONS 
loop 

GET(CURR-REC.STUDENT-ANSWERS(J) / 1); 
if CURR-REC.STUDENT-ANSWERS(J) = 

CURR-TEST.KEY-ANSWERS (J) 
then 

GOOD-ANSWERS ,= GOOD-ANSWERS + 1 ; 
end if; 
end loop; 

— Теперь вычисляется оценка за контрольные 

— работы. Кроме того/ обновляются сведения 

— в структуре с данными о студенте. Либо 

— если это - новый студент/ то создается 

— новая структура с данными о нем. Но вна- 

— чале необходимо вычислить значения фак- 
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— тических параметров. 

CURR-PAIR.SUBJ-MAT == CURR-REC.SUBJECT-ID; 
CURR_PAIR.SCORE == GOOD-ANSWERS; 
INSERT-OR-UPDATE-STUDENTS < 

CURR_REC_STUDENT_ID / CURR-PAIR, ROOT-PTR); 
— Для первого студента указатель ROOT-PTR 

— имеет пустое значение перед вызовом дан- 

— ной процедуры/ а после вызова ROOT-PTR 

— будет указывать на первый личный номер 

— студента/ равный “123456789Ѳ" . Впослед- 

— ствии значение ROOT-PTR не будет меняться, 
else 

PUT<" No such subject: “); 

PUT < CURR-REC.SUBJECT-ID); 
end if/ 

SKIP-LINE; 

GET ( CURR-REC.STUDENT-ID ) ; 
end loop; 

— Обрабатываются все входные строки 

— со сведениями о студентах. 

LIST-STUDENTS < ROOT-PTR >; 

— Перечисляются студенты в соответствии 

— со значениями их личных номеров/ а также 

— отображаются названия предметов для конт- 

— рольных работ и оценки за эти работы, 
end ACCESS-GRADES; 


Прослеживание работы рекурсивных процедур из этой программы - трудоемкая 
задача, требующая внимания. Рис. 5.3,а и 5.3,6 показывают, как работает рекурсивная 
процедура на примере выполнения процедуры LISTJSTUDENTS. 


Печатаемая информация 
1111111111 1 ENGL1 2 

Запомнено 

последним 

Запоминаемая информация 

^ LIST_STUDENTS с FORMTREE, указы¬ 
вающим на 1234567890, и запомненное в точ- 


Запомнено 

первым 

_„ LIST STUDENTS с FORM TREE, указы¬ 
вающим на 1234567890, и запомненное в точке 
**АА** 

Печатаемая информация 


Запоминаемая информация 

1111111111 1 ENGL1 2 
1111199999 1 ENGL1 7 

Запомнено 

последним 

_ > LIST STUDENTS с FORM TREE, указы¬ 
вающим на 1111199999, и запомненное в точке 
**СС*« 


Запомнено 

первым 

б 

_ > L1ST.STUDENTS с FORM_TREE, указы¬ 
вающим на 1234567890, и запомненное в точке 


Рис. 5.3. Выполнение подпрограммы LIST_STUDENTS. 

a -значение переменной FORM_TREE указывает на личный номер студента 1111111111. Точка 
б-значение переменной FORM_TREE указывает на личный номер студента 1188888888 Точка **ВВ*». 
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УПРАЖНЕНИЯ 


1. Перепишите заново одну или несколько процедур программы NAME_PHONE из гл. 4 
так, чтобы в них в соответствии с нижеследующими объявлениями присутствовали формальные 
параметры. Заметьте, что границы строки FORM_LINE- границы фактических параметров. Здесь 
рекомендуется использовать атрибуты FORM_LINE'LAST и FORM_LINE'LENGTH. Значения 
атрибутов формальных параметров определяются по значениям атрибутов фактических пара¬ 
метров. 

р rocedure LOW_TO_UPPER_N_CT_COMMAS 

<FORM_LINE = in out STRING); 
procedure IGNORE-LEADING_SPACES 

(FORM-LINE : in out STRING ; 

FORM-END-POS : out NATURAL ); 

— Здесь переменная FORM_£ND_PGS должна 

— давать значение первой позиции стро- 

— ки/ в которой располагается символ/ 

— отличный от пробела, 
procedure FIND_NEXT_SP_OR_COMMA 

(FORM-LINE : in out STRING ; 

FORM_START_POS : in out NATURAL ; 

FORM-END-POS .- in out NATURAL); 

procedure PLACE-SPACES 

(FORM-LINE : in out STRING ; 

FORM-START-POS : in out NATURAL ; 

FORM-END-POS .• in out NATURAL); 

function IS-CORRECT-NAME 

(FORM-LINE : STRING ; 

FORM-START-POS .• NATURAL ; 

FORM-END-POS ; NATURAL) v 

return BOOLEAN; 
procedure XTR-NAME 

— Эта процедура заменяет процедуры 

— XTR—N-VAI_FIRST-NAME и 

— XTR—N-VAI_LAST-NAME. 

(FORM-LINE : in out STRING ; 

FORM-START-POS = in out NATURAL ; 

FORM-END-POS : in out NATURAL ; 

XTR-NAME : out STRING); 

— Выделенное имя помечается в 
— XTR-NAME . 

procedure XTR-N-VAI_MDl_INIT 

(FORM-LINE = in out STRING ; 

FORM-START-POS : in out NATURAL ; 

FORM-END-POS = in out NATURAL); 

procedure XTR-N-VAI_PHONE 

(FORM-LINE : in out STRING ; 

FORM-START-POS .• in out NATURAL ; 

FORM-END-POS = in out NATURAL ; 

XTR-PHONE : out STRING); 


2. Напишите функцию, которая вычисляет положительное значение квадратного корня из 
положительного действительного числа. Вы можете использовать метод Ньютона, при котором 
(п + 1)-е приближение к значению квадратного корня из числа X вычисляется по формуле: 

0.5 * (Curr_approx + X/Curr_approx); 
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где Curr_approx (Текущая_аппроксимация)-п-я аппроксимация значения квадратного корня. 
Итеративный процесс вычислений должен будет прекратиться, когда разность между значениями 
двух соседних аппроксимаций станет меньше некоторого заранее заданного малого положитель¬ 
ного числа. 

3. Замените функцию FIND_COUP_DATE из программы ACCR INTEREST, помещенной в 
настоящей главе, на процедуру, которая будет находить дату выплаты по купонам перед днем 
приобретения ценной бумаги и после него. Объявление для новой процедуры может быть таким: 

procedure GET_COUP_DATES 

( FORM_MAT_DATE DATE; 

FORM_SETI_DATE = DATE; 

FQRM_PREV_DATE,ou t DATE / 

FORM_NEXT_DA ТЕ :out DATE )> 

Здесь FORM PREV DATE flaTa платежа по купону непосредственно перед днем приобретения, а 
FORM_NEXT_DATE- ближайшая дата платежа, следующая за днем приобретения. Проведите 
необходимую модификацию программы ACCR INTEREST. 

4. Замените процедуру CHECK GRADE (пров_оценки), которая входит в программу 
GR_POINT_AVE из гл. 4, на процедуру с таким объявлением: 

procedure CHECK_GRADE 

<F0RM_C0URSE_GR = STRING <1 .. 2); 

FORM_GR_POINT : out FLOAT/ 

F0RM_VALID_GR : out BOOLEAN)/ 


Переменная FORM VALID GR должна выполнять роль переменной VALID_GRADE, а 
переменная FORM_GR_POINT должна заменить переменную GRADE_POINT. В связи с введе¬ 
нием новой процедуры сделайте необходимые изменения в программе GR_POINT_AVE. 

5. Измените программу RECUR PROCLGRADES так, чтобы после считывания строк обо 
всех студентах и занесения данных о них в двоичное дерево каждая ведомость успеваемости 
студентов модифицировалась следующим образом: если студент выполняет более двух контроль¬ 
ных работ по одному предмету, то остаются только две наилучшие оценки, а остальные оценки по 
данному предмету убираются. Предметы считаются одинаковыми, если первые 4 символа их 
названий (переменная SUBJ_MAT) совпадают. 
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Декларативные части и инструкции 
транслятору 


6.1. ОБРАБОТКА ДЕКЛАРАТИВНЫХ ЧАСТЕЙ 

Как мы уже видели, тело подпрограммы делится на декларативную часть и 
исполняемую часть, состоящую из последовательности операторов. В декларативной 
части связываются между собой имена и объявляемые ресурсы, а в исполняемой части 
описываются действия, которые должна выполнять подпрограмма. Порядок работы с 
подпрограммой таков: вначале обрабатывается декларативная часть, а затем вы¬ 
полняются операторы, входящие в исполняемую часть. 

Обработка декларативной части производится в несколько этапов. На первом из 
них вводятся идентификаторы. Они вводятся в том месте, где встречаются первый раз. 
Это может «заслонить» другие идентичные идентификаторы, которые были обнару¬ 
жены ранее. Затем только что введенные объявления ресурсов обрабатываются. К 
примеру, в процессе обработки объявлений вычисляются статические выражения. Для 
объектов устанавливается тип и вычисляются уточнения. Обработка объявлений 
функций и процедур включает обработку объявлений параметров, которая осущест¬ 
вляется в том порядке, в каком эти параметры располагаются в списке. Обработка 
определения типа включает установление множества значений и операций, допустимых 
для этих значений. Последним шагом процесса обработки объявлений является 
возможная инициализация объекта. 

Строки, образующие декларативную часть, обрабатываются последовательно. 
Если в декларативной части модуля встречается объявление подпрограммы, то и тело 
этой подпрограммы должно быть представлено в этой же декларативной части. 
Исключением является случай, когда тело подпрограммы компилируется отдельно (см. 
гл. 9). 

6.1.1. Область действия и видимость идентификаторов 

Область действия идентификаторов представляет собой участок текста прог¬ 
раммы на Аде, в которой остается в силе объявление этого идентификатора. Она 
начинается в той точке, где идентификатор вводится в программу. Здесь предпола¬ 
гается, что он объявлен в декларативной части блока или подпрограммы. В подпрог¬ 
раммах или блоках область действия идентификатора заканчивается в месте окончания 
текста подпрограммы или блока, декларативная часть которого содержит Этот 
идентификатор. 

Идентификатор может быть, а может и не быть видимым в своей области действия. 
Имеется в виду то, что в некоторых участках программы, входящих в область действия 
данного идентификатора, этот идентификатор может быть неизвестен, если он исполь¬ 
зован сам по себе 1 ’. Примеры такой ситуации будут приведены в дальнейшем. 

Нельзя использовать никакой ресурс (объекты, числа и т.д.) до завершения 
обработки его объявления. По этой причине мы всегда обеспечивали расположение 


То есть без префикса,- Прим, перев. 
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тела подпрограммы текстуально раньше точки вызова этой подпрограммы. По этой же 
самой причине в случае инициализации переменной или константы с использованием 
других идентификаторов мы обязательно делали так, чтобы эти идентификаторы 
вводились и объявления их обрабатывались ранее. 

Во время обработки декларативной части может не хватить памяти ЭВМ. В этом 
случае возникает предопределенная исключительная ситуация STORAGE_ERROR 
(Нехваткаламяти). Возбуждение исключительных ситуаций будет рассмотрено в 
гл. 11. 

Пример. Следующая процедура иллюстрирует только что введенные понятия 

procedure EX ie 
I . INTEGER Ѳ; 

J : INTEGER К + I; 

— Это об'«юление неправильно/ так как об'явле- 

— ние величины К должно быть уже обработано 

— к моменту начала обработки об'явления пере- 

— менной J. 

К = INTEGER 5; 

L = SMALI_RANGE ; 

~ Это об'явление неправильно/ так как обработке 

— об'явления переменной L должна предшествовать 

—■ обработка об'явления типа SMALI _ RANGE. 

type SMALL-RANGE is range 1 .. 5; 
procedure INI is 

I : STRING ( 1 .. 5 ); 
begin 
null; 

— Здесь требуется наличие по крайней мере 

— одного оператора. 

Область действия иденти- 
— Фикатора I/ обозначающаго об'акт строко- 

— вого типа/ начинается в точке об'явления 

— этого идентификатора и заканчивается в 

— строке end INI; 

— Идентификатор I/ обозначающий об'акт це- 

— лого типа/ не видим в процедуре IN1/ не- 

— смотря на то что процедура INI находит- 

— ся в пределах его области действия. 

— Эта ситуация служит примером перекрытия 

— переменной Г (пример/ контра с тиру юций 

— с перекрытием подпрограмм см. гл 5). 

— Если потребуется обратиться к перемен- 

— ной I целого типа в пределах тела IN1 / 

— то можно использовать составную Форму 

— записи: EX .I 
end INI; 

begin 
null; 
end EX; 


Вспомните, что некоторые ресурсы, такие, как идентификаторы циклов и блоков, 
объявляются неявно в конце декларативной части наиболее близкого охватывающего 
их блока или подпрограммы. Поэтому предполагается, что обработка этих неявных 
объявлений осуществляется после обработки явных объявлений. 
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6.1.2. Перекрытие переменных и значений, 
использование квалификаторов 

В процедуре ЕХ имеется пример перекрытия переменной. Могут перекрываться 
также и значения. В разд. 4.2.2 был приведен пример перекрытия агрегатов. А вот 
пример перекрытия перечисляемых литералов: 

type FEM_NAMES is (MARY, CHARLIE, LAURIE, NANCY); 
type MAL_NAMES is (JOHN, LAURIE, BOB, CHARLIE); 

Здесь значение CHARLIE, являющееся перечисляемым литералом, перекрыто, так 
как оно обозначает два разных объекта, принадлежащие к двум различным типам. 
Такое перекрытие не будет ошибкой, однако следует быть внимательным, чтобы 
обратиться к должному значению CHARLIE. Это достигается при помощи квали¬ 
фикатора типа (type qualifier). Например, при обращении к значению CHARLIE, 
принадлежащему к типу FEM_NAMES, следует использовать квалификатор 
FEM_NAMES' (CHARLIE), а при необходимости обратиться к значению CHARLIE, 
относящемуся к типу MAL_NAMES, нужно воспользоваться квалификатором 
MAL_NAMES' (CHARLIE). В общем случае выражение с квалификатором (qualified 
expression) имеет вид 

тип_или_подтип' (выражение) 

Для агрегатов форма записи выражения с квалификатором такова: 
тип_или_подтип' агрегат 

Необходимость в использовании квалификаторов возникает при употреблении 
выражений или агрегатов, тип которых нельзя однозначно определить по контексту. 
Например, в выражении CHARLIE < JOHN нет неоднозначности, поскольку JOHN 
принадлежит к типу MAL_NAMES. Значение выражения -FALSE. Однако выражение 
CHARLIE < LAURIE некорректно, так как нельзя сделать однозначного заключения о 
том, к какому из двух типов принадлежат входящие в него перечисляемые литералы. 
Это выражение следует записать так: 

MAL_NAMES' (CHARLIE) < MAL_NAMES' (LAURIE) 

Если выбрана другая альтернатива, то нужно написать: 

FEMJSIAMES' (CHARLIE) < FEM_NAMES' (LAURIE) 


6.2. ПРЕОБРАЗОВАНИЯ ТИПОВ 

В первых трех главах книги были рассмотрены все типы Ады, за исключением 
приватных. Приватные типы будут описаны в гл. 7. В гл. 2 были кратко изложены 
правила преобразования для числовых типов. В языке Ада действуют строгие правила, 
запрещающие смешивание разных типов. Однако при использовании универсальных 
типов, к которым принадлежат универсальные целые и универсальные действительные 
числа, допускается некоторая свобода. Имеется в виду то, что в выражениях можно 
смешивать универсальные действительные и универсальные целые числа без ка¬ 
ких-либо явных преобразований их типов. 

Пример. Предположим, что имеются следующие объявления: 

I : constant := 5; Константа I относится к универсальному Целому типу, она 

инициализируется значением универсального целого 
литерала 5 



164 


Глава 6 


X : constant := 2.71; Константа X принадлежит к универсальному действитель¬ 

ному типу, она инициализируется значением универсаль¬ 
ного целого литерала 2.71 

Тогда будут правильными такие выражения: 

Выражение Результат 

5*1 Получается значение (25) универсального целого типа; преобразования 

типа не требуется 

3.0 * X Получается значение (8.13) универсального действительного типа; 

преобразования типа не требуется 

5.0 * I Получается значение (25.0) универсального действительного типа; 

преобразования типа не требуется 

I * X Получается значение (13.55) универсального действительного типа; 

преобразования типа не требуется 

В общем случае явные преобразования типа разрешены только для числовых, 
производных и регулярных типов. Общая форма преобразования типа такова: 
тип_или_подтип (выражение) 

При преобразовании типа может возникнуть исключительная ситуация CONST¬ 
RAINT-ERROR (Нарушение_уточнения), если значение вычисленного выражения не 
будет удовлетворять каким-либо из уточнений, наложенных на тип или подтип, к 
которому должен быть преобразован результат. 

Для числовых типов (целых и действительных) выражение, следующее за именем 
типа_или_подтипа, может принадлежать к любому числовому типу. Значение этого 
выражения преобразуется к родительскому типу для указанного типа_или_подтипа. 
Член тип_или_подтип называется обозначением_типа (type_mark). Преобразование 
действительных значений в целые включает округление. 

Преобразования для регулярных типов разрешены при условии, что типы индексов 
для каждого измерения обозначения_типа и для результата вычисления выражения 
одинаковы или получены друг из друга, и типы согласующихся компонент также 
одинаковы или получены друг из друга. 

Пример. Пусть имеются объявления: 

type HOURS-WORKED is array (NHTURAL range <>) 
of NATURAL; 

subtype HRS-WRKD-MONTHLY is HOURS-WORKED<1 .. 31); 
subtype HRS-WRKD-WEEKLY is HOURS.WORKED<1 .. ?); 

TOTAL-HOURS : HOURS.WORKED; 

MONTHLY-DATA : HRS-WRKD.MONTHLY; 

WEEKLY-DATA HRS—WRKD-WEEKLY; 

Тогда можно записать такие преобразования массивов: 

HRS_WRKD_MONTHLY (TOTALHOURS (44 . 74)) 

Здесь границы 44 .. 74 массива TOTAL-HOURS преобразуются в границы 1 ..31 
переменной регулярного типа, принадлежащей к типу HRS_WRKD_MONTHLY. 
HOURS.WORKED (MONTHLY-DATA) 

Здесь границы 1 .. 31 переменной MONTHLY-DATA регулярного типа обеспечивают 
значения границ 1 31 переменной, принадлежащей к регулярному типу 

HOURS-WORKED. 


HRS_WRKD-WEEKLY (MONTHLY-DATA (13 .. 19)) 
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Здесь границы 13 .. 19 вырезки из массива MONTHLY_DATA становятся границами 
1 .. 7 массива, тип которого - HRS_WRKD_WEEKLY. 

Разрешены преобразования производных типов при условии, что и тип, указанный 
в обозначении_типа, и тип значения выражения могут быть выведены друг из друга или 
имеют общий родительский тип. 

Пример. Рассмотрим некоторые примеры возможных преобразований, затрагивающих 
производные типы. Пусть имеются такие объявления: 

type DAYS is INTEGER range 1.. 130-000; 
type JULIAN—DAYS is new DAYS range 1.. 366; 
type MONTHLY-DAYS is new DAYS range 1..31; 

CURR-JUL = JULIAN-DAYS; 

LONG-DAYS = DAYS; 

CURR-MONTH: MONTHLY-DAYS; 

Тогда можно записать следующие преобразования: 

LONG-DAYS := 5; 

CURR-MONTH .= MONTHLY-DAYS < LONG-DAYS ); 

CURR-JUL : = JULIAN-DAYS ( CURR-MONTH )i 


Дополнительные примеры будут приведены в разд. 6.4. 

Если разрешено преобразование от одного типа к другому, то разрешено и 
обратное преобразование. При вызове подпрограмм обратное преобразование вы¬ 
полняется, когда в качестве фактического параметра с видом связи in out или out 
задается выражение, выполняющее преобразование типа переменной. 

Пример. В данном примере используются массивы, объявленные в предыдущем 
примере. В дополнение к ним есть такое объявление процедуры: 

procedure ADD HRS (FORM TOTLHRS : in out HOURS_WORKED; I : INTEGER); 

Эту процедуру можно вызвать при помощи оператора 
ADDERS (HOURS.WORKED (WEEKLY.DATA), II); 

где II относится к целому типу. Здесь значение фактического параметра 
WEEKLYJDATA преобразуется к значению типа HOURS_WORKED, которое согласо¬ 
вывается с формальным параметром FORM_TOT_HRS. После завершения выполне¬ 
ния процедуры ADD_HRS значение, возвращаемое параметром FORM_TOT_HRS 
(типа HOURS_WORKED), преобразуется в значение типа HRS_WRKD_WEEKLY и 
передается переменной WEEKLY_DATA. Тем самым производится неявное обратное 
преобразование к типу HRS_WRKD_WEEKLY: 

HRS_WRKD_WEEKLY (FORM_TOT_HRS (1 ..7)) 
которое осуществляется после завершения процедуры. 


6.3. ИНСТРУКЦИИ ТРАНСЛЯТОРУ 

Инструкции транслятору (pragmas) в языке Ада-это директивы, не носящие 
обязательного характера. Они, скорее, служат рекомендациями, которые транслятор 
может выполнить, а может и проигнорировать. Инструкции транслятору имеют 
следующий вид: 


pragma идентификатор; 
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Если имеются аргументы, то форма инструкций становится такой: 

pragma идентификатор (один_или_более_аргументов_разделенных_запятыми); 
Существуют инструкции транслятору, определенные в языке, и инструкции, предлагае¬ 
мые в конкретной реализации. Мы будем использовать только инструкции, определен¬ 
ные в языке. Пример инструкции транслятору, не имеющей аргумента: 
pragma PAGE; 

Инструкция pragma PAGE дает указание транслятору печатать следующую строку 
текста программы с новой страницы. Вот еще пример: 
pragma LIST (OFF); 

(другой возможный аргумент -ON). Эта инструкция дает указание транслятору от¬ 
ключить печать листинга программы. Эта инструкция будет действовать до тех пор, 
пока не встретится директива 
pragma LIST (ON); 

Инструкции pragma LIST и pragma PAGE можно употреблять в любом месте 
программы. Однако другие инструкции разрешается использовать только в определен¬ 
ных местах программы на языке Ада. 

Как отмечалось в предыдущей главе, каждый вызов подпрограммы требует 
значительных дополнительных затрат времени. Для устранения этих накладных 
расходов, вызванных обработкой декларативной части и связыванием фактических и 
формальных параметров, можно воспользоваться инструкцией pragma INLINE. Эф¬ 
фект использования данной инструкции состоит в том, что в местах вызова под¬ 
программы будет непосредственно вставлен объектный код тела этой подпрограм¬ 
мы 1 ’. Все остальные преимущества, обусловленные употреблением подпрограмм, 
сохранятся. Данная инструкция транслятору помещается в декларативной части после 
объявлений имен подпрограмм. Например: 

pragma INLINE (хх, уу, zz); 

Здесь хх, уу и zz- имена подпрограмм. 

Инструкция pragma ELABORATE (Обработать) связана с трансляцией сегментов 
компиляции. Материал о сегментах компиляции представлен в гл. 9. Существуют 
также инструкции транслятору, связанные с механизмом задач языка Ада, например 
инструкция pragma PRIORITY (Приоритет). Эти инструкции будут рассмотрены в гл. 
10. Существует инструкция pragma INTERFACE (Интерфейс), в которой указываются 
(в качестве аргументов) название другого языка программирования (например, 
COBOL) и имя подпрограммы (в данном примере на Коболе) 2 ’. 

Полный список инструкций транслятору, определенных в языке Ада, дан в 
приложении Б. Вот некоторые примеры: 

pragma SUPPRESS (RANGE_CHECK, ON = > INDEX); 

Здесь дается разрешение транслятору отметить проверку того, что значение индекса 
массива находится в требуемом диапазоне, 
pragma PACK (ARRAY.NAME); 
pragma OPTIMIZE (TIME); 
pragma OPTIMIZE (SPACE); 


*’ Получается так называемая открытая подпрограмма.- Прим, перев. 

2) Эта инструкция позволяет использовать программу, написанную на другом языке 
программирования - Прим, перев. 
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Две последние инструкции дают указание транслятору оптимизировать объектный код 
программы с целью максимального ускорения выполнения программы (OPTIMIZE 
(ТІМЕ)-Оптимизировать (время)) или с целью эффективного использования оператив¬ 
ной памяти (OPTIMIZE (SPACE) -Оптимизировать память)). Среди инструкций транс¬ 
лятору, определенных в языке Ада, отсутствует инструкция для условной компиляции. 
Однако можно ожидать, что такая инструкция окажется в списке инструкций, пред¬ 
лагаемых в конкретной реализации этого языка. 


6.4. ОБЗОР ОСНОВНЫХ ОСОБЕННОСТЕЙ АДЫ 


В данном разделе представлена программа, в которой используются подпрограм¬ 
мы, правила преобразования типов, инструкции транслятору, структуры с вариантами, 
ссылочные типы, производные типы и все виды операторов языка Ада, с которыми к 
настоящему моменту познакомился читатель. Эта программа иллюстрирует все 
основные особенности языка, описанные в первых шести главах настоящей книги. 

Программа вычисляет проценты по двум видам финансовых документов. В целях 
упрощения здесь рассматриваются только ценные бумаги со скидкой, например векселя 
министерства финансов США, и ценные бумаги, по которым платятся проценты при их 
выкупе, например сертификаты или коммерческие бумаги. 

Доход по тем бумагам, по которым платятся проценты при выкупе, вычисляется в 
соответствии с их ценой по формуле 

YLD = ( 1 + DAYS_ISS_MAT / D_IN_YEAR * S_RATE - 
( QT-PRICE + DAYS-ISS-SET / D_IN-YEAR * 

S-RATE ))/ (QT-PRICE + DAYS-ISS-SET/ 

D-IN-YEAR * S-RATE ) * D_IN-YEAR / 

DAYS-SET-MAT; 

Переменные в этой формуле обозначают следующее: 


Переменная 

DAYS_ISS_SET 

D_IN_YEAR 

DAYS_ISS_MAT 

DAYS_SET_MAT 

QT_PRICE 

S_RATE 

YLD 


Смысл 

Количество дней от даты выпуска ценной бумаги до даты ее 
приобретения 

Количество дней в году 

Количество дней от даты выпуска ценной бумаги до даты ее 
выкупа 

Количество дней от даты приобретения до даты выкупа 

Курсовая стоимость ценной бумаги, деленная на 100 

Годовой процент или процент, выплачиваемый по купону 
(десятичное число) 

Годовой доход по ценной бумаге (десятичное число), которая 
хранится у вкладчика до даты выкупа или до даты погашения 
(если она сохранила стоимость к этой дате) 


Вычисление процента по скидке для цены со скидкой производится по формуле: 

DISC RATE = (100 - DISC_PRICE)/1 00 * D_IN_YEAR/DAYS_SET_MAT 
где DISC-RATE- процент по скидке (десятичное число), a DISC-PRICE -цена со 
скидкой. 

Для сравнения выплачиваемых процентов (т. е. YLD, которые являются доходом 
на денежном рынке) с процентами по скидке используется формула: 

YLD_OF_DISC = DISC-RATE*100/DISC-PRICE 
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Предполагается, что ни дата приобретения, ни дата выкупа, ни дата выпуска 
ценной бумаги не должны попадать на праздничные или выходные дни. В упр. 1 
предлагается ввести дополнительную проверку этого условия. 

В каждой входной строке данных располагаются сведения об одной ценной бумаге 
в следующем формате: 

Позиции Данные 

1-15 Вид ценной бумаги AT_MATURITY 

(выплата дохода при выкупе бумаги) 
или DISCOUNT (бумага со скидкой) 

16-25 Наименование ценной бумаги 

26-31 Дата приобретения в формате ГГММДД 

32-37 Дата выкупа 

38-48 Способ подсчета дней (АСТ__360 и 

т.д.-см. далее текст программы) 

В зависимости от вида ценной бумаги далее идут различные поля. Для бумаг вида 
АТ_М ATURITY : 

Позиции Данные 

49-54 Дата выпуска 

55-60 Установленный процент 

61-68 Курсовая стоимость 

(два знака после десятичной точки) 

Для бумаг вида DISCOUNT: 

49-57 Цена со скидкой 

(два знака после десятичной точки) 

Признаком конца данных служит входная строка со значением «5555588888» в поле 
названия ценной бумаги. 

Для каждой ценной бумаги программа вычисляет доход по ней. Для бумаг со 
скидкой вначале вычисляется процент по скидке. Бумаги помещаются в списке в 
порядке возрастания дат выкупа. 

Размер дохода как функцию от даты выкупа иногда называют кривой дохода. 
После обработки всех ценных бумаг следует проверить кривую дохода на выпуклость 
(нормальный характер зависимости). Тест на выпуклость заключается в следующем. 
Для каждой ценной бумаги доход должен равняться по крайней мере среднему 
значению доходов по предшествующей и последующей ценным бумагам. 

Последним допущением будет то, что даты приобретения должны находиться 
близко друг к другу. Это упрощает задачу. В упр. 2 даны более реалистические условия. 

Программа YIELD_COMPUTATION 

with TEXT-IO; us* TEXT-IO; 
procedure YIELD-COMPUTATION is 
type INTEREST is dibits 13; 
type DISCOUNT-INTEREST is new INTEREST; 
type AT-MAT-INTEREST is new INTEREST; 

— He следует путать проценты no скидке и 

— проценты по другим видам ценных бумаг. 

— Они обоеначают равные веци. Здесь впол- 

— не уместным будет испольеовани* проие- 

— водных типов. 

WORK-AT-MAT—IN.T— 1 / WORK—AT-MAT-1NT-2 : 

AT-MAT-INTEREST; 

— Переменные/ названии которых начинаютсе 

— с WORK/ - вто рабочие переменные. 
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type INTEREST_KIND is 

(COUPON, AT_MATURITY, DISCOUNT); 

— Здесь ив рассматриваются проценты, вы- 

— плачиваемые по купонам. Перечисляемое 

— значение COUPON приведено только для 

— полноты списка. 

package INT_KIND_IO ів new ENUMERATION.I О 
(INTEREST-KIND); 

use INT-KIND.IO; 

CURR.INT.KIND : INTEREST-KIND; 

CURR-SEC-NAME : STRINGd .. 1Ѳ); 
type DAY-COUNT-BASIS is 

(ACT-ACT, ACT-360, M-30-Y-360); 

— Здесь приняты такие условные обозначения■ 
— ACT-ACT означает, что при вычислениях 

— учитывается действительное количество дней 

— месяце (28-31) и в году (365-366); 

— АСТ-360 означает, что при вычислениях учи- 

— тывается действительное количество дней в 

— месяце, но считается, что в году 360 дней; 

— М_30— Y-360 принимается, что в месяце - 

— 30 дней, а в году - 360 дней, 
package DAY-KIND-10 ів new ENUMERATION.I О 

(DAY_C0UNT_BAS1S); 

иве DAY-KIND-IO; 

type PRICES is digits 13; 

type DISCOUNT-PRICES is new PRICES; 

— Опять-таки цены со скидкой означают иное, 

— чем цены других видов ценных бумаг, 
type DAY ів 

(MONDAY, TUESDAY, WEDNESDAY, THURSDAY, 

FRIDAY, SATURDAY, SUNDAY); 
subtype WEEKEND is DAY range SATURDAY..SUNDAY; 
type DAY-INT is range 1 .. 31; 
type JULIAN-DAYS is range 1 .. 366; 
type MONTH is 

(JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, 
JULY, AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, 
DECEMBER); 

type YEAR is range 0 .. 2050; 
type MONTH-INT is range 1 .. 12; 
package DAY-10 is new ENUMERATION-I0(DAY); 
use DAY-10; 

package MONTH-10 ів new ENUMERATI0N_I0(MONTH); 
use MONTH-IO; 

package YEAR—10 is new INTEGER_IO(YEAR); 
иве YEAR-IO; 

package MONTH-INT is new INTEGER_IO(MONTH-INT); 
иве MONTH-INT; 

package DAY-INT-IO is new INTEGER-10(DAY-INT); 
use DAY-INT-IO; 
type DATE is 
record 

WEEK-DAY , DAY; 

MONTH-NAME : MONTH; 

MONTH-NO . MONTH-INT; 

DAY-NO = DAY-INT; 
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YTD-DAYS . JULIAN-DAYS; 

TOTAL-DAYS . INTEGER; 

YEAR-NO . YEAR; 
end record; 

BASE-DATE : constant DATE 

< MONDAY,JANUARY,1,1,1,1,1984); 

— В данной программе предполагается, что во 

— входных данных указываются только даты, 

— следуюцие после 1 января 1984г. 

BASE-LEAP , constant INTEGER 

INTEGER(BASE-DATE.YEAR-NO) / 4 + 

INTEGER(BASE-DATE.YEAR-NO) / 400 - 
INTEGER(BASE-DATE.YEAR-NO) / 100; 

— Эта константа равна количеству високосных 

— лет в период от Ѳ-го года до года 
.. BASE DATE YEAR NO 

type DAYS-IN-MONTH is array(MONTH-1NT,BOOLEAN) 
of DAY-INT; 

ACTUAL-DAYS-IN-YEAR : constant DAYS-IN-MONTH - 
( (31,28,31,30,31,30,31,31,30,31,30,31), 
(31,29,31,30,31,30,31,31,30,31,30,31) ); 
package INT-IO is new INTEGER-10(INTECER); 
use INT-IO; 

D_IN_YEAR , NATURAL 360; 

DAYS-ISS-SET : NATURAL; 

DAYS-ISS-MAT = NATURAL; 

DAYS-SET-MAT . NATURAL; 
type SECURITY(INT-PAYM . INTEREST 
DISCOUNT) is 

record 

SEC-NAME ■ STRING(1 .. 10); 

SETL-DATE: DATE; 

MAT-DATE , DATE; 

DAY-KIND . DAY-COUNT-BASIS; 

YLD : INTEREST; 

case INT-PAYM is 

when AT-MATURITY -> 

ISSUE-DATE , DATE; 

S-RATE : AT-MAT-INTEREST; 

QT-PRICE : PRICES; 
when DISCOUNT «> 

DISC-PRICE , DISCOUNT-PRICES; 

DISC-RATE . DISCOUNT-INTEREST; 
when others ■> null; 

end case; 
end record; 

CURR-SECURITY-1 : SECURITY 

(AT_MATURITY, "1234567890", BASE-DATE, 
BASE-DATE, M-3O-Y-360, 1Ѳ.0, BASE-DATE, 

10.0, 100.0 ); 

— Эта структура инициализируется при помоци 

— позиционного агрегата. Значение дискрими- 

— нанта равно AT-MATURITY . 

CURR-SECURITY-2 : SECURITY 

(INT-PAYM -> DISCOUNT, 

SEC-NAME -> "1234512345", 

SETL-DATE -> BASE-DATE, 

MAT-DATE -> BASE-DATE, 
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DAY-KIND »> M-30—Y— 36Ѳ/ 

YLD -> 10.0/ 

DISC-PRICE -> 99.0/ 

DISC-RATE -> 10.0 ); 

— Эта структура инициализируется при помоци 

— агрегата с поименованными компонентами. 

— Значение дискриминанта равно DISCOUNT, 
package INTEREST-I О ie new FLOAT- 10( INTEREST) ; 
use INTEREST—10; 

package PRICES-IO is new FLOAT-IO<PRICES); 
use PRICES-IO; 

package DISC-10 is new FLOAT-IO(DISCOUNT-INTEREST); 
use DISC-10; 

package AT-MAT-IO is new FL0AT_I0<AT-MAT-INTEREST); 
use AT-MAT-IO; 

LEAP-YEAR . BOOLEAN; 

INPUT-LEAP . INTEGER; 

GOOD-MAT-DATE = BOOLEAN; 

GOOD-SETL-DATE : BOOLEAN; 

GOOD-ISSUE-DATE = BOOLEAN; 

BAD-LINE = BOOLEAN; 

— При обнаружении ошибки во входных данных 

— переменная BAD-LINE получает значение 

— TRUE, 
type SEC_N0DE; 

type SEC-PTR is access SEC-NODE; 
type SEC-NODE is 
record 

SEC-INFO : SECURITY; 

SEC-NEXT : SEC-PTR; 
end record; 

CURR-PTR, TOP-PTR/ ANY—PTR / PREV-PTR : SEC-PTR; 
NORM-CURVE : BOOLEAN; 

— Эта переменная устанавливается равной TRUE/ 

— если кривая дохода имеет нормальный вид. 
pragma PAGE; 

— Устанавливается печать листинга программы 

— с новой строки. 

function IS-VALID-DATE (FORM-DATE = DATE) 
return BOOLEAN is 

— Эта Функция дает значение TRUE/ если 

— дата/ представленная переменными 

— FORM-DATE.MONTH-NO/ FORM-DATE . DAY-NO 
-- и FORM-DATE.YEAR-NO/ правильна. В про- 

— тивном случае вырабатывается значение 
— FALSE . 

begin 

pragma LIST(OFF); 

— Последовательность операторов этой 

— подпрограммы не нужно печатать. 

— Эта последовательность идентична тексту 

— одноименной подпрограммы из программы 
-- ACCR-INTEREST (см. гл. 5). Этот текст 

— нужно сюда вставить, 
pragma LIST(ON); 

— Возобновить печать текста программы, 
end IS-VALID-DATE; 
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procedure FILI_IN-DATE 

(PROC_F_DATE , in out PATE; 

GOOD-DATE : out BOOLEAN) is 

— Эта процедура вычисляет значения оставших- 

— ся компонент структуры PROC-F-DATE / причем 

— предполагается/ что значения известных 

— компонент - FORM-DATE.MONTH-NO/ 

-- FORM-DATE.DAY-NO/ FORM-DATE.YEAR-NO обра- 

— зуют правильную дату. Если это не так/ то 

— переменная GOOD-DATE получает значение 

— FALSE . 

— В Формальной части данной процедуры имеются 

— два формальных параметра: PROC-F-DATE ком- 

— бинированного типа и GOOD-DATE логического 

— типа, 
begin 

pragma LIST(OFF); 

— Последовательность операторов для данной 

— подпрограммы не следует печатать. Эта по- 

— следовательность идентична тексту одно- 

— именной подпрограммы из программы 

— ACCR-INTEREST (см. гл. 5). Этот текст сле- 

— дует сюда вставить, 
pragma LIST(ON); 

— Возобновить печать листинга программы, 
end FILL-IN-DATE; 
function (X/ Y : DATE) 

— Эта функция подсчитывает количество прошед- 

— ших дней в предположении/ что в месяце на- 

— считывается 30 дней/ а в году - 360 

— (М_30— Y_ 360). Это пример использования пере- 

— крытой операции . 
return NATURAL is 

begin 

if X.TOTAL-DAYS < Y.TOTAL-DAYS 
then 

return 0; 
else 

return 360 * INTEGERS. YEAR-NO-Y. YEAR-NO) + 

30 * INTEGER(X.M0NTH.N0-Y.MONTH-NO) + 

INTEGER(X.DAY-NO-Y.DAY-NO); 

end if; 
end ; 

pragma PAGE; 

— Начать печать операторов исполняемой части 

— программы с новой страницы, 
begin 

СЕТ < CURR-1NT-KIND) ; 

GET ( CURR-SEC-NAME ); 

while CURR-SEC-NAME /= "5555588888" 
loop 

case CURR-INT-KIND is 
when AT—MATURITY => 

CURR-SECURITY-l.SEC-NAME := CURR-SEC-NAME; 
— Считать со входной строки оставшиеся 

GET (CURR^SECUR ITY-l. SETL-DATE. YEAR-NO /2 ); 
GET(CURR-SECURITY-l.SETL-DATE.MONTH-NO / 2); 
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GET ( CURR-SECURITY-l.SETI _ DATE.DAY-NO,2) ; 

GET(CURR_SECURITY_1.MAT-DATE.YEAR-NO . 2 >; 

GET(CURR-SECURITY-l.MAT-DATE.MONTH-NO , 2 )> 
GET(CURR-SECURITY_1.MAT-DATE.DAY-NO,2); 

GET<CURR-SECURITY-l.DAY-KIND); 

GET(CURR-SECURITY-l.ISSUE-DATE.YEAR-NO . 2 ) ; 
GET(CURR-SECURITY-l.ISSUE-DATE-MONTH-NO/2); 
GET<CURR-SECURITY_1.ISSUE-DATE.DAY-NO,2); 
GET<CURR-SECURITY_1.S_RATE,6); 

GET(CURR-SECURITY_1.QT_PRICE,8)) 

— Проверим правильность каждой даты и 

— запомним остальные компоненты путем 

— обращение к процедуре Flu _ IN-DATE. 

FILL_IN-DATE(CURR-SECURITY-l.SETL-DATE, 

GOOD-SETL-DATE); 

FILI_IN_DATE(CURR-SECURITY_1.MAT-DATE, 

GOOD-MAT-DATE); 

FILL_IN-DATE(CURR-SECURITY-l.ISSUE-DATE, 
GOOD-ISSUE-DATE); 
if not (GOOD-SETL-DATE and 
GOOD-MAT-DATE and 
GOOD-ISSUE-DATE and 
CURR-SECURITY_1.MAT-DATE.TOTAL-DAYS > 
CURR-SECURITY-l.SETL-DATE.TOTAL-DAYS 
and 

CURR_SECURITY_1.SETL-DATE.TOTAL-DAYS > 
CURR—SECURITY—1.ISSUE-DATE.TOTAL-DAYS) 
then 

BAD-LINE := TRUE; 

PUT(" Bad line “>; 

PUT( CURR-SEC-NAME ); 

NEW-LINE; 
end if; 

if not BAD-LINE 
then 

— Вычислить доход с учетом выбран- 
—ного способа подсчета дней, 
case CURR-SECURITY-l.DAY-KIND is 
when ACT-360 => 

DAYS-SET-MAT := 

CURR-SECURITY-l.MAT-DATE.TOTAL-DAYS 

- CURR-SECURITY_1.SETL-DATE.TOTAL-DAYS; 

DAYS_ISS_SET := 

CURR-SECURITY-l.SETL-DATE.TOTAL-DAYS 

- CURR-SECURITY-l.ISSUE-DATE.TOTAL-DAYS; 

when M-30-Y-360 => 

DAYS-SET-MAT == 

CURR-SECURITY_1.MAT-DATE 

- CURR-SECURITY-l.SETL-DATE; 

DAYS-ISS_SET := 

CURR-SECURITY—1.SETL-DATE 

- CURR-SECURITY_1.ISSUE-DATE; 

— Операция перекрыта, 
when others => 

PUT(" What security is this "); 

PUT( CURR_SEC_NAME ); 

NEW-LINE; 
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end case; 

— Здесь необходимо довольно большое 

— количество преобразований значе- 

— ни* к типу AT-MAT-INTEREST. 
WORK_AT_MAT_INT_ 1 == 

CURR-SECURITY—1.S-RATE / 

AT-MAT-INTEREST(D_IN_YEAR); 
WORK_AT_MAT_INT_2 == 

AT-MAT-INTEREST(CURR_SECURITY_1.QT-PRICE) 
+ AT_MAT_INTEREST(DAYS—ISS—SET) / 
WORK_AT_MAT_INT_l; 

CURR-SECURITY-l.YLD .= INTEREST( 

(1.0 + AT_MAT_ I NTEREST (DAYS_ISS_I4AT)/ 
W0RK_AT_MAT_INT_1 - 
WORK-AT-MAT—INT_2 ) / 

WORK-AT-MAT-INT-2 * 

AT-MAT—INTEREST(D-IN-YEAR) / 

AT-MAT-INTEREST(DAYS-SET-MAT) ) ; 

— Создать элемент/ который будет 

— занесен в список. 

CURR-PTR == new SEC-NODE; 

CURR-PTR-SEC-INFO := CURR_SECURITY_1; 
end if; 

when DISCOUNT => 

CURR-SECURITY-2.SEC-NAME 
CURR-SEC-NAME; 

— Считать со входной строки оставшиеся 

— данные. 

GET ( CURR-SECURITY_2.SETL-DATE.YEAR-NO / 2); 
GET(CURR-SECURITY-2.SETL-DATE.MONTH-NO / 2); 
GET(CURR-SECURITY_2.SETL-DATE.DAY-NO /2 ); 
GET(CURR-SECURITY-2.MAT-DA ТЕ .YEAR-NO /2 ); 
GET(CURR-SECURITY_2.MAT-DATE.MONTH-NO / 2); 
GET < CURR-SECURITY_2.MAT-DATE.DAY-NO / 2); 

GET(CURR-SECURITY_2.DAY-KIND); 

GET(CURR-SECURITY_2.DISC-PRICE / 8); 

— Проверить правильность дат и запомнить 

— значения других компонент при помоги 

— обращения к процедуре FIL1 _ IN-DATE. 

FILI _ IN-DATE ( CURR-SECURITY— 1. SETL-DATE, 

GOOD-SETL-DATE) ; 

FILL-IN-DATE < CURR-SECURITY-l.MAT-DATE, 
G00D_MAT_DATE); 
if not (GOOD-SETL-DATE and 
GOOD-MAT-DATE and 
CURR-SECURITY_2.MAT-DATE.TOTAL-DAYS > 
CURR-SECURITY_2.SETL-DATE.TOTAL-DAYS) 
then 

BAD-LINE TRUE; 

PUT(" Bad line ■'); 

PUT( CURR-SEC-NAME ); 

NEW-LINE; 
end if; 

if not BAD-LINE 
then 

— Вычислить доход с учетом применяе- 

— мого способа подсчета дней. 
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case CURR-SECURITY— 2. DAY_KJNO is 
when ACT_360 ■> 

DAYS_SET_MAT := 

CURR-SECURITY_2.MAT-DATE.TOTAL-DAYS 
- CURR-SECURITY_2.SETL-DATE.TOTAL-DAYS; 
when M_30_Y_360 => 

DAYS-SET-MAT 

CURR-SECURITY-l.MAT-DATE - 
CURR-SECURITY-l.SETL-DATE; 

— Операция перекрыта, 
when others => 

PUT(" What security is 11 ); 

PUT< CURR-SEC-NAME ); 

NEW-LINE; 
end case; 

— Здесь опять-таки требуются пре- 

— образования значений к типам 
— DISCOUNT-INTEREST и 

— АТ-МАТ- INTEREST. 

CURR-SECURITY-2.DISC-RATE := 

(100.0 - DISCOUNT—INTEREST( 
CURR-SECURITY-2.DISC-PRICE) / 

100.0 * DISCOUNT-INTEREST( 

D_IN-YEAR) / DISCOUNT-INTEREST 
(DAYS-SET-MAT); 

CURR-SECURITY-2.YLD := 

AT-MAT-INTEREST( 

CURR-SECURITY-2.DISC-RATE)*100.0 / 
AT-MAT-INTEREST( 

CURR-SECURITY-2.DISC-RATE); 

— Создадим элемент/ который будет 

— помецен в список. 

CURR-PTR : = new SEC-NODE; 

CURR-PTR.SEC-INFO .• = 

CURR-SECURITY-2; 
end if; 

when COUPON => null; 
end case; 

— Поместим правильные сведения о ценной 

— бумаге в список, 
if not BAD-LINE 

then 

ANY-PTR .= TOP-PTR; 
while 

ANY-PTR.SEC-INFO.MAT-DATE.TOTAL-DAYS < 
CURR-PTR.SEC-INFO.MAT-DATE.TOTAL-DAYS 
or 

ANY-PTR /= NULL 
loop 

PREV-PTR := ANY-PTR; 

ANY-PTR := ANY-PTR.SEC-NEXT; 
end loop; 

if ANY-PTR = TOP-PTR 
then 

CURR-PTR.SEC-NEXT ,= TOP-PTR; 
TOP-PTR := CURR-PTR; 
else 



PREV-PTR.SEC-NEXT == CURR-PTR; 
CURR-PTR.SEC-NEXT .= ANY-PTR; 

®nd if; 

SKIP-LINE; 

GET(CURR-INT—KINO); 

GET(CURR-SEC-NAME); 

•nd if; 

•nd loop; 

— Вид кривой - нормальный ? 

ANY-PTR .= TOP-PTR; 

NORM-CURVE =- TRUE; 
while ANY-PTR /= NULL 
loop 

CURR-PTR ,= ANY-PTR; 

ANY-PTR ANY-PTR.SEC.NEXT; 
if ANY-PTR /- NULL 
and than 

ANY-PTR.SEC-NEXT /« NULL 
and than 

— Здесь кривая проверяется на вы- 
— пуклость. 

ANY-PTR . SEC-INFO . YLD < 

(CURR-PTR.SEC-INFO.YLD + 

ANY-PTR.SEC-NEXT.SEC-INFO.YLD) 

/ 2.0 

then 

NORM-CURVE .= FALSE; 
exit; 
end if; 
end loop; 
if NORM-CURVE 
then 

PUTC Normal yield curve “); 
else 

PUT(" Maybe the curve is inverted “); 
end if; 

end YIELD-COMPUTATION; 


Пример входных данных и вид списка приведены на рис. 6.1. 


УПРАЖНЕНИЯ 

1. Внесите изменения в программу YIELD_COMPUTATION, которые обеспечат контроль 
того, чтобы дата приобретения ценной бумаги, дата ее выкупа и дата выпуска не попадали на 
выходные и праздничные дни. 

2. Пусть входные строки данных для программы YIELD_COMPUTATION отсортированы в 
порядке возрастания дат приобретения. Измените программу YIELD_COMPUTATION так, 
чтобы проверка выпуклости кривой дохода выполнялась только для ценных бумаг, имеющих 
одинаковые даты приобретения. 

3. Модифицируйте программу YIELD_COMPUTATION с тем, чтобы строился список 
ценных бумаг такого вида, что добавление любой ценной бумаги в него нарушало бы его 
нормальность. (При удалении ценной бумаги из списка выпуклость кривой дохода сохраняется.) 
Заметьте, что бумаги, попавшие в этот список, видимо, стоит покупать. 
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Позиция 1 Позиция 15 Позиция 25 

DISCOUNT Trsy 3-14 850107850314АСТ_360 00098.25 

DISCOUNT Trsy 3-21 850108850321АСТ_360 00098.03 

AT_MATURITY TAX Ex NT 850108850904M_30_Y_360 840829003.24100.07 

DISCOUNT 5555588888 


TOP—PTR 



Примечание. Даты относятся к типу DATE и имеют намного больше компонент, чем показано на рисунке. 


Рис. 6.1 . Пример входных данных и значения списка для подпрограммы YIELD_COMPU- 
TATION. 


г-618 



Глава 7 

Пакеты 


7.1. СПЕЦИФИКАЦИИ ПАКЕТОВ И ПРИВАТНЫЕ ТИПЫ 


В первых шести главах были освещены «традиционные» свойства языка програм¬ 
мирования Ада. Большинство из этих свойств можно найти в эквивалентных формах у 
таких общепризнанных языков, как Фортран, ПЛ/1, Кобол, Бейсик и Паскаль. 

Оставшиеся главы будут посвящены тем особенностям Ады, которые олицетворя¬ 
ют явный отход от этих популярных языков. Начнем с пакетов-одного из наиболее 
полезных инструментов для разработки программ. 

7.1.1. Спецификации пакетов 

Пакеты Ады наряду с подпрограммами и задачами (см. гл. 10) являются 
программными сегментами. Пакет в Аде представляет собой совокупность програм¬ 
мных ресурсов, таких, как типы, объекты и подпрограммы. Однако эта совокупность 
ресурсов подчиняется строгим правилам. Эти правила регулируют то, какая информа¬ 
ция делается доступной пользователю, и то, какая доля внутренних процессов будет 
ему показана. Разработчик пакета может применять эти правила достаточно гибко. 
Программист сам устанавливает желаемую границу между пакетом и его пользова¬ 
телями. 

Пакет, как и процедура или функция, может иметь спецификацию и тело. Таким 
образом, пакет состоит из двух частей: спецификации и тела. 

Объявлением пакета называется его спецификация, за которой ставится точка с 
запятой. Здесь наблюдается аналогия с объявлением подпрограммы. Спецификация 
пакета имеет форму 

package имя_пакета is 

базисные_объявления_или_фразы_использования_или_фразы_представления 
end имя_пакета 

Заметьте, что объявление пакета получится, если после члена « end имя_пакета» 
поставить символ «;». Если в пакете имеется приватная часть, то спецификация пакета 
принимает вид 

package имя_пакета is 

базисные_объявления_или_фразы_использования_или_фразы_представления 

private 

базисные_объявления_или_фразы_использования_или_фразы_представления 
end имя_пакета 

Имялакета после зарезервированного слова end можно не указывать. 

Пример. Ниже приведена спецификация пакета с использованием некоторых объявле¬ 
ний из программы ACCR_JNTEREST (гл. 5). 
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package DAYS-MODULE І5 

type DAY is (MONDAY,TUESDAY,WEDNESDAY/THURSDAY, 

FRIDAY,SATURDAY,SUNDAY); 

subtype WEEKEND is DAY range SATURDAY .. SUNDAY; 

type DAY-INT is range 1 .. 31; 

type JULIAN_DAYS is range 1 .. 366; 

type MONTH is (JANUARY,FEBRUARY,MARCH,APRIL,MAY, 

JUNE,JULY,AUGUST,SEPTEMBER, 

OCTOBER,NOVEMBER,DECEMBER); 
type YEAR is range 0 .. 2050; 
type DATE is 
record 

WEEK-DAY . DAY; 

MONTH-NAME : MONTH; 

MONTH-NO : MONTH-INT; 

DAY-NO : DAY-INT; 

YTD—DAYS : JULIAN-DAYS; 

TOTAL-DAYS : INTEGER; 

YEAR-NO : YEAR; 
end record; 

BASE-DATE : constant DATE := 

(MONDAY,JANUARY,1,1,1,1,4984); 

BASE-LEAP : constant INTEGER 

INTEGER(BASE-DATE.YEAR-NO) / 4 + 

INTEGER(BASE-DATE.YEAR-NO) / 4ѲѲ - 
INTEGER(BASE-DATE.YEAR-NO) / 100; 
type DAYS-IN-MONTH is array (MONTH-INT, BOOLEAN) 
of DAY-INT; 

ACTUAI_DAYS_IN-YEAR : constant DAYS-1N-MONTH : = 

( (31,31),(28,29),(31,31),(30,30), 

(31,31),(30,30),(31,31),(31,31), 

(30,30),(31,31),(30,30),(31,31) ); 

— ПОМЕТКА для возможной фразы представления 
end DAYS-MODULE — Наличие символа в этом 

— месте превратило бы данную 

— спецификацию в об'явление 

— пакета. 

В этой спецификации пакета отсутствует приватная часть и использованы лишь 
базисные объявления. Базисными объявлениями здесь являются объявления типов и 
связанных с ними объектов. В качестве базисных объявлений можно использовать 
любые из объявлений, введенных в предыдущих главах: объявления чисел, объектов, 
типов, подтипов и подпрограмм. Например, в спецификации пакета CHECK-DATES, 
приведенной ниже, встречаются примеры объявлений функций и подпрограмм, 
употребляемые в качестве базисных объявлений. Другими возможными видами базис¬ 
ных объявлений являются объявления задач (см. гл. 10), объявления исключительных 
ситуаций (см. гл. 11) и объявления других пакетов (как, например, в спецификации 
пакета CHECK_DATES_ALT, приведенной далее). Кроме того, разрешены объявления 
переименования и объявления отложенных констант. Подробные сведения об этих 
видах объявлений даются далее в настоящей главе. 

Фразы представления также могут присутствовать в спецификации пакета. Фразы 
представления (representation clauses) содержат указания о том, в каком виде должны 
быть представлены типы в ЭВМ. Эти фразы зачастую используются для того, чтобы 
ограничить транслятор в свободе выбора одного из множества возможных вариантов 
внутреннего представления для требуемого типа. Например, вместо отмеченного 
комментария в спецификации пакета DAYS-MODULE можно поместить такую фразу 
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представления: 

— Фраза представления 

for DAY use (MONDAY => 1, TUESDAY => 2, 

WEDNESDAY => 3/ THURSDAY => 4, 

FRIDAY => 5/ SATURDAY => 6, 

SUNDAY => 7 ) i 

Эта фраза представления дает указание транслятору использовать целые числа в 
диапазоне от 1 до 7 для внутреннего представления величин типа DAY. Без данной 
фразы транслятор мог бы выбрать для реализации этого типа иной набор целых 
числовых кодов, скажем, от 0 до 6. Фразы представления играют важную роль при 
обеспечении совместимости программ на Аде (например, с файлами, созданными 
посредством других языков программирования). 

В заключение отметим, что спецификации пакетов могут также содержать фразы 
использования (use clauses). Общая форма фразы использования такова: 
use имя пакета; 

Здесь можно указать имена нескольких пакетов, отделенные друг от друга 
запятыми. 

Пример. Ниже приведена спецификация пакета с применением объявлений под¬ 
программ из программы ACCR-INTEREST, содержащей фразу использования use. 

with DAYS-MODULE ; 

— фраза подключения контекста with делает видимы- 

— ми об'явления ресурсов из спецификации пакета 

— DAYS-MODULE. 

package CHECK-DATES is 

— Далее следует фраза использования use . 

use DAYS-MODULE; 

— Эта Фраза использования позволяет употреблять 

— идентификаторы из спецификации пакета 

— DAYS-MODULE без применения составных имен. 

— Таким образом/ можно использовать простое 

— имя типа - DATE вместо употребления префиксной 

— формы записи - DAYS-MODULE . DATE . Идентификаторы 

— в этом случае становятся "непосредственно 

— видимыми" (см. разд.7.3). 

function IS-VALID-DATE (FORM-DATE : DATE) 

return BOOLEAN; 

— Это об'явление Функции является 

— базисным об'явлением. 

procedure FILL-IN-DATE 

( PROC-F-DATE : in out DATE; 

GOOD-DATE = out BOOLEAN ); 

— Это об'явление процедуры является 

— базисным об'явлением. 

TODAYS-DATE : DATE; 

end CHECK-DATES — Символ ";" превратит данную 

— спецификацию пакета в 

— об'явление пакета. 

Следует подчеркнуть, что в спецификацию пакета нельзя помещать тела под¬ 
программ и других пакетов. Например, недопустимо включать тело процедуры 
FILL_IN_DATE в спецификацию пакета CHECK_DATES. 
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7.1.2. Видимость в спецификациях пакетов 

В только что приведенной спецификации пакета отсутствовала приватная часть. 
Если же приватная часть пакета присутствует, то объявления, следующие за за¬ 
резервированным словом private, образуют так называемую приватную часть пакета. 
Объявления, размещенные до слова private, составляют видимую часть пакета. В 
видимой части перечисляются те ресурсы, которые могут быть сделаны известными и 
доступными пользователю. В приватной же части перечисляются те ресурсы, которые 
необходимы для должного функционирования пакета, но на которые не может 
сослаться пользователь, так как они ему недоступны. Пользователю ничего не известно 
об объявлениях в приватной части, даже если приватные типы упоминаются и 
используются в видимой части спецификации пакета. Это-так называемый принцип 
«черного ящика», т. е. системы, которой можно продуктивно пользоваться, но 
внутреннее устройство которой неизвестно. 

Видимую часть пакета можно сделать доступной для других программных 
сегментов с помощью ряда средств. Типичный способ установления видимости для 
нужного пакета-это употребление фразы подключения контекста (with clause), пред¬ 
шествующей программному сегменту. Так, например, перед объявлением пакета 
CHECK-DATES может располагаться фраза подключения контекста 

with DAYS.MODULE; 

Фраза with экспортирует ресурсы пакета DAYS_MODULE для использования их в 
пакете CHECKJDATES. Термин «экспортирует» является предпочтительным терми¬ 
ном языка Ада для обозначения того, что объявления видимой части пакета становятся 
доступными и известными. Предполагается, что пакет DAYS_MODULE транслируется 
отдельно и доступен также и другим программным сегментам. (Подробности см. в 
гл. 9.) Предоставляемые пакетом DAYS_MODULE ресурсы можно использовать в 
пакете CHECK_DATES, если воспользоваться составными именами. Например, 
внутри пакета CHECKJDATES можно употребить идентификаторы 
DAYS_MODULE.BASE_DATE или DAYS_MODULE.BASE_LEAP. 

Фраза использования use в спецификации пакета CHECK_DATES обеспечивает 
дополнительные удобства для программиста, так как она упрощает применение 
видимых идентификаторов из пакета DAYS_MODULE. После обработки фразы use 
видимые идентификаторы из пакета DAYS_MODULE можно записывать без префикса 
DAYS_MODULE. Сложные правила, касающиеся видимости, области действия 
идентификаторов и употребления фразы use, будут более детально изложены в 
разд. 7.3. 

Другим способом установления видимости пакета может служить размещение 
объявления этого пакета в спецификации использующего его пакета. 

Пример. Можно воспользоваться таким альтернативным способом задания специфика¬ 
ции пакета CHECK_DATES (при этом будет обеспечен тот же самый род видимости, 
что и в предыдущем примере): 

with TEXT-IO# use TEXT-IO; 

— Эта строка необходима у так как мы хотим при- 
— своить начальное значение переменной 
— TODAYS-DATE с помоцью процедуры GET. 

package CHECK_DATES_ALT is 
package DAYS-MODULE is 

— Здесь размещаются об'явления из пакета 
— DAYS-MODULE, приведенные ранее, 
end DAYS-MODULE ; 
use DAYS_MODULE ; 

— Эта фраза use нужна/ так как мы не хотим 
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— пользоваться составными именами, 
function IS_VALID-DA ТЕ ( FORM-DATE : DATE ) 

return BOOLEAN; 

— Это об'явление функции является базисным 

— об'явлением, 
procedure FILL-IN-DATE 

(PROC-F-DATE : in out DATE/ 

GOOD-DATE : out BOOLEAN ) ; 

TODAYS-DATE : DATE ; 
end CHECK-DATES-ALT 

— Символ " ;" превратит эту спецификацию в 

— об'явление пакета. 


7.1.3. Приватные типы 

Приватные типы Ады предназначены для того, чтобы скрыть от пользователя 
фактические детали реализации типов. Сокрытие этой информации достигается 
следующим способом: операции, допустимые для объектов приватного типа, ограниче¬ 
ны присваиванием и проверкой на равенство и/или неравенство. Любые другие 
желаемые операции над объектами приватных типов должны быть определены явно в 
видимой части пакета. 

Объявление приватного типа размещается в видимой части пакета, а подробности, 
касающиеся его реализации, приводятся в приватной части пакета. Объявление 
приватного типа имеет форму 

type имя_приватного_типа is private 

Существует даже еще более жестко ограниченный вид приватного типа, на¬ 
зываемый ограниченным приватным типом (limited private type). Объявление такого 
типа имеет форму 

type имя_ограниченного_приватного_типа is limited private; 

Для ограниченных приватных типов не разрешены никакие предопределенные опера¬ 
ции. Таким образом, присваивание и проверка на равенство/неравенство для них 
запрещены. Единственно возможным способом применения ограниченных приватных 
типов может служить использование тех функций и процедур, которые представлены в 
видимой части пакета и имеют параметры ограниченного приватного типа. 

Пример. Ниже следует спецификация пакета с объявлениями приватных и ограничен¬ 
ных приватных типов. 

package ROSTER is 

type STUD-NAME is private i 

— Это об'явление приватного типа размецается 

— в видимой части спецификации пакета. 

— Пользователи пакета не должны обладать 

— возможностью изменять фамилии студентов. 

— Однако им предоставлено право пользоваться 

— операциями проверки фамилий студентов на 

— равенство/неравенство с тем/ чтобы они 

— смогли/ например/ выяснить/ какие курсы 

— студент изучает. 

type STUD-GRADE is limited private; 

— Никто (кроме лиц,обладавших особыми полно- 

— мочиями/ как вы вскоре это увидите) не 

— должен иметь доступ к оценкам студентов. 
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— Операции присваивания и сравнения находят- 

— ся под строгим контролем. Именно по это* 

— причине мы сделали данный тип ограничен- 

— ным приватным/ а не просто приватным, 
type TEACHER_PASS ів private; 

— Для вычисления оценок или выдачи ведомостей 

— требуется пред'явить пароль преподавателя, 
procedure GET-PASS 

( FORM-PASS : out TEACHER-PASS ; 

TEACH-ID : STRING (1 .. 9) ); 
type COURSE-INFO is 

— Этот комбинированны* тип взят из программы 

-- GR-POINT-AVE из разд.4.3. 

record 

CR-ID = STRING (1 .. 4); 

CR-NO = STRING <1 .. 4); 

CR-CRDT : NATURAL; 
end record; 
type ROSTER-REC is 
record 

ST-NAME = STUD-NAME; 

ST_ID = STRING (1 .. 9); 

ST-CRS = COURSE-INFO; 

CRS-GRADE = STUD-GRADE; 

end record; 

— He все сведения о студентах должны быть до- 

— ступны пользователям. Например/ при регистрации 

— оценок печатаются не фамилии/ а личные номера 

— студентов. Если нужно напечатать оценки студен- 

— тов/ то необходимо ввести пароль прелодава- 

— теля (см. ниже об'явление процедуры). 
function IS-A-VALID-STUDENT 

< FORM-REC = ROSTER-REC ) return BOOLEAN; 

— Проверка наличия студента в списках. Только 

— студент/ Фигурирующий в списках/ может 

— получать оценку. 

р rocedure COMPUTE_GRADE_N_FILL-NAME 

( FORM-REC : in out ROSTER-REC ; 

FORM-PASS = in TEACHER-PASS ) ; 

— Эта процедура вносит в списки имя студента 

— (величину приватного типа)/ вычисляет ито- 

— говую оценку студента и помещает ее в 

— компонент CRS-GRADE. 
procedure PRINT-GRADE 

( FORM-REC = in ROSTER-REC ; 

FORM-PASS : in TEACHER-PASS ) ; 

— Эта процедура выводит оценки/ если задан 

— правильны* пароль учителя, 
private 

type STUD-NAME is new STRING (1 ., 20); 
type STUD-GRADE is range 0 .. 100 ; 

— STUD-GRADE - это целое число в диапазоне от 

— 0 до 100/ но внешни* пользователь не имеет 

— доступа к его реализации. 

type TEACHER-PASS is range О .. 99999 ; 
end ROSTER 

— Символ ";“ превратит эту спецификацию в 

— об'явление пакета. 
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Пример. Ниже показано использование пакета ROSTER (Список) в процедуре 
SAMPLE_ROSTER_USE. 


with ROSTER; use ROSTER; 
with TEXT-10; use TEXT-IO; 
procedure SAMPLE_ROSTER_USE is 
CURR-ROSTER = ROSTER-REC; 

ACT-TEACH-ID : STRING( 1 .. 9 >; 

ACT-PASS = TEACHER-PASS; 

OTHER-ROSTER : ROSTER-REC; 
begin 

GET ( CURR-ROSTER.ST-ID ); 

GET ( CURR-ROSTER.ST-CRS ); 

GET ( ACT_TEACHER_ID ); 

GET ( ACT-PASS/ ACT-TEACHER-ID ); 

— Вводится личный номер преподавателя/ и про- 

— цедура должна сгенерировать/ по всей вероят- 

— ности/ правильный пароль. Значение этого па- 

— роля передается переменной ACT-PASS ограни- 

— ченного приватного типа. Пользователю неиз- 

— вестно действительное значение переменной 
— ACT-PASS, и он не может изменить его. 

if IS-A-VALID-STUDENT (- CURR-ROSTER ) 
then 

COMPUTE-GRADE-N-FILL-NAME < CURR-ROSTER/ 
ACT-PASS ); 

PRINT-GRADE ( CURR-ROSTER/ ACT-PASS >; 

— Если пароль/ содержащийся в ACT-PASS/ пра- 

— вилен/ то вычисляется оценка. Она присваи- 

— вается CURR-ROSTER . CRS-GRADE / принадлежа- 

— щей к ограниченному приватному типу, 
end if; 

GET ( OTHER-ROSTER.ST-ID ); 

GET ( OTHER-ROSTER.ST-CRS ); 
if IS-A-VALID-STUDENT ( OTHER-ROSTER ) 

— Будем считать/ что эта функция сверяет лич- 

— ный номер студента со списком правильных 

— фамилий студентов и их личных номеров. 

— Этот список известен только внутри функции, 
then 

COMPUTE_GRADE_N_FILL-NAME ( OTHER-ROSTER/ 
ACT-PASS ); 

if OTHER-ROSTER.ST-NAME /= CURR-ROSTER.ST-NAME 
— Проверка на равенство/неравенство разре- 

— шена для приватных типов. Но было бы оши- 

— бкой записать отношение 

— OTHER-ROSTER.CRS-GRADE /- 

CURR-ROSTER . CRS-GRADE, 

— так как в нем используются ограниченные 

— приватные типы. Нельзя написать оператор 
— OTHER-ROSTER.CRS-GRADE :« 

CURR-ROSTER . CRS-GRADE ; 

— так как присваивание значений ограничен- 

— ного приватного типа запрещается. Однако 

— можно написать: 

— OTHER-ROSTER.ST-NAME := 

CURR-ROSTER . ST-NAME ; 
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then 

PUT ( " Different names " ); 

end if; 
end if; 

end SAMPLE_ROSTER_USE; 

Внешний пользователь приватного типа не имеет сведений о реализации этого 
типа. Даже если пользователь догадается, что фамилия студента представлена в виде 
строки символов, то он все равно не сможет записать оператор присваивания 

OTHER_ROSTER.ST_NAME: = "12345678901234567890”; 

поскольку два приведенных здесь объекта принадлежат к разным типам. Преобразова¬ 
ние же типа в данном случае запрещено. 

Сокрытие информации достигается здесь при помощи введения приватных типов. 
Оно вполне оправдано в пакете ROSTER с точки зрения обеспечения сохранности 
сведений и позволяет защитить ведомости успеваемости студентов от подделки. Кроме 
того, сокрытие информации дает возможность писать прикладные программы, не 
зависящие от конкретного способа реализации приватного типа. Пусть, например, 
приватный тип STUD_GRADE (Студ_оценка) реализован как целый тип р диапазоном 
значений от 0 до 100. Можно изменить эту реализацию и сделать тип этой переменной, 
скажем, перечисляемым или строковым. При этом не потребуется делать никаких 
изменений в прикладных программах, использующих пакет, в котором определен этот 
тип. Подпрограммы, в которых использовались формальные параметры приватных 
типов, придется все же переписать заново. 

Сокрытие информации помогает при создании и локализации новых типов 
данных. Это иллюстрирует следующий пример. 

Пример. Объявление пакета GIANT_INT_j\RITHMETIC (Длин_цел_арифм) определя¬ 
ет арифметические операции для целых чисел с большим количеством цифр, входящих 
в их состав. 

package GTANT-1NT_AR IТНМЕТIС is 
type GIANT_INTEGER is private; 
function INT_TO_GIANT ( INT-FORM , INTEGER ) 
return GIANT-INTEGER; 

' — Эта Функция вырабатывает значение типа 

— GIANT-INTEGER по значению переменной 

— INT-F0RM, выровненному справа по 

— восьмой компоненте, 
function GIANT-TO-INT ( GIANT-FORM . 

GIANT-INTEGER ) return INTEGER; 

— Эта функция будет пытаться преобразовать 

— длинное целое число в обычное/ если 

— только оно будет не слишком велико, 
function GIANT-ADD < LEFT-FORM/ RIGHT-FORM : 

GIANT-INTEGER ) return GIANT-INTEGER; 

— Эта функция складывает два длинных целых 

— числа. 

function GIANT-SUB < LEFT-FORM/ RIGHT-FORM . 

GIANT-INTEGER ) return GIANT-INTEGER; 

— Эта функция выполняет вычитание длинных 

— целых чисел. 1 

function GIANT-LT < LEFT-FORM/ RIGHT-FORM : 

GIANT-INTEGER ) return BOOLEAN; 

— Эта функция вырабатывает значение TRUE/ 

— если LEFT-FORM меньше/ чем RIGHT-FORM. 
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function GIANT-GT ( LEFT-FORM, RIGHT-FORM = 
GIANT-INTEGER ) return BOOLEAN; 

— Эта Функция вырабатывает значение TRUE, 

— если LEFT-FORM больше, чем RIGHT-FORM, 
function GIANT-TO-STRING ( GIANT-FORM 

GIANT-INTEGER ) return STRING; 

— Эта Функция преобразует длинное целое 

— число в строку. 

function STRING-TO-GI ANT ( STRING-FORM .• 
STRING ) return GIANT-INTEGER; 

— Эта функция преобразует строку в длинное 

— целое число, 
private 

type GIANT-INTEGER is array (1 . . 8 ) 
of INTEGER; 

— Это об'явление можно заменить на другие, 

— например, так : 

— type GIANT-INTEGER is 

record 

FIRST-HALF : INTEGER; 

SECOND-HALF : INTEGER; 

— end record; 
end GIANT-INT_ARITHMETIC; 


Пример. Теперь проиллюстрируем употребление пакета GIANTJNT-ARITHMETIC 
для работы с длинными целыми числами на примере подпрограммы 
GIANT_INT_USE. 

with GIANT_INT-ARITHMETIC; 
use GIANT_INT-ARITHMETIC; 
with TEXT-10; use TEXT-IO; 
procedure GIANT-INT-USE is 
I, J = INTEGER == 55; 

I-BIG, J-BIG : GIANT-INTEGER; 

I-STRING, J-STRING : STRING(1 .. 13) := 

H 1234567890123"; 
begin 

I-BIG := INT-TO-GIANT<I); 

J-BIG :■ INT-TO-GIANT(J); 

— Здесь выполняется преобразование обычных 

— целых чисел в длинные целые числа. 

I-BIG : = GIANT—ADD(I-BIG, J-BIG); 

— Здесь два длинных целых числа складываются. 

I := GIANT-TO-INT ( I-BIG) ; 

— Здесь длинное целое число преобразуется 

— обратно в обычное целое. 

I .» I ** 2; 

I-BIG : = INT-TO-GIANT (I); 

J-BIG := STRING_TO_GIANT<J-STRING); 

— Здесь строка преобразуется в длинное 

— число. 

J-BIG := GIANT-SUB(J-BIG, I-BIG); 

— Это-пример вычитания одного длинного 

— целого числа из другого, 
if GIANT_LT<I-BIG, J-BIG) 

— В этой строке выполняется проверка 

— условия "меньше или равно" для двух 

— длинных целых чисел. 
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then 

I-BIG := STRING-TO-GIANT(I-STRING); 
else 

I—BIG := GIANT-ADD(J_BIG / J-BIG); 
end i t ; 

it GIANT-GT(I-BIG/ J-BIG) 

— В этой строке выполняется проверка 

— условия "больше" для двух длинных 

— целых чисел, 
then 

I-STRING := GIANT_TO_STRING(I-BIG); 

— Здесь длинное целое число преобразует- 

— в строку, 
else 

I-STRING == GIANT_TO_STRING(J-BIG); 
end i Гу- 

РиТ < I_STRING); 
end G TANT-1NT-USE; 

Спецификация пакета GIANT_INT_ARITHMETIC описывает операции для так 
называемого абстрактного типа данных. Абстрактный тип данных локализован 
внутри пакета, т. е. пользователю ничего не известно о том, как этот абстрактный тип 
данных реализован. 

7.1.4. Использование пакетов 

Приведенные до сих пор спецификации демонстрируют некоторые типичные 
области применения пакетов. Вот список этих областей в порядке возрастания их 
сложности: 

-использование пакетов как совокупностей взаимосвязанных типов данных и объявле¬ 
ний объектов (пример-пакет DAYS_MODULE). Такие пакеты экспортируют объекты 
и типы; 

-использование пакетов как совокупностей взаимосвязанных подпрограмм (при¬ 
мер-пакет CHECKJDATES) и иных программных сегментов, т. е. пакетов и задач. Эти 
пакеты экспортируют программные сегменты; 

-использование пакетов как средств, реализующих абстрактные типы и множество 
операций, разрешенных для значений, принадлежащих к этим типам (пример-пакет 
GIANTJNT-ARITHMETIC). Такие пакеты экспортируют как типы, так и програм¬ 
мные сегменты; 

-последней (четвертой) сферой применения может служить использование пакетов, 
которые экспортируют объекты, типы, программные сегменты и, вдобавок, выполня¬ 
ют внутри самого пакета регистрацию его внутренних состояний. Следующий пример 
иллюстрирует это. 

Пример. Спецификация пакета, предназначенная для работы с индексами, отражаю¬ 
щими деловую активность на бирже: 

package MARKET is 
type DIRECTION is 

(DOWN, UNCHANGED, UP); 
type AVERAGE-INDICATORS is private; 

— Эти типы можно реализовать как 

— массивы скользящих средних значений, 

— вычисленных, например, за последние 

— 5, 10 или 20 дней, 
type OSCILLATORS is private; 
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— Эти типы могут быть представлены 
■— как массивы индикаторов текучего 

— состояния деловой активности. 

— Об'екты/ относячиеся к этим типам / 

— будут иметь значения/ отражаючие 

— скорость изменения уровня деловой 

— активности. 

— *** MARK *#* 

type LEVEL is digits 8 range 0.00 
10000.00/ 

function CURR-LEVEL return LEVEL; 

— Текучее состояние рынка отслежива- 

— ется внутренними средствами пакета/ 

— такими/ например/ как текучее зна- 

— чение переменной D0U-J0NES (Индекс 
— Доу-Джонса.) 

function NEXT-GUESS(FORM-LEVEL : LEVEL; 

PREV-FORM-MOVE = DIRECTION; 

FORM-OSCILL : OSCILLATOR; 

FORM.AVER =AVERAGE-INDICATORS); 

— По значениям формальных параметров эта 

— функция вырабатывает определенный 

— прогноз состояния рынка, 
return LEVEL; 

procedure UPDATE-LEVEL ( FORM-LEVEL = in out 
LEVEL; 

NEW-MOVE : DIRECTION; 

FORM-MAGN = LEVEL); 

— Новый уровень рынка получается с учетом 

— старого его состояния и новых изменений, 
private 

type AVERAGE-INDICATORS is array (1 .. 10) 
of FLOAT; 

type OSCILLATORS is array (1 .. 3) 
of FLOAT; 

— ТП MARK ??? 

end MARKET — Если добавить символ ";“/ то 

— получится законченное об'явление 

— пакета. 

Спецификация пакета MARKET (Рынок) экспортирует объявления (например, 
объявление типа AVERAGE-INDICATORS) и подпрограммы (например, процедуру 
UPDATE-LEVEL). Пакет также будет отслеживать уровень деловой активности с 
помощью внутренних средств. 

Пакеты Ады, встречающиеся на практике, несут в себе сочетания особенностей 
всех описанных выше четырех видов пакетов. 

7.1.5. Отложенные константы 

В заключение отметим, что константы приватного типа можно объявлять в 
видимой части пакета как так называемые отложенные константы. Значения от¬ 
ложенных констант указываются в приватной части. Пользователь пакета не знает 
действительного значения отложенной константы, но он может присваивать ее значе¬ 
ние другим приватным объектам или сравнивать ее с ними. 

Объявление отложенной константы имеет форму 
имя константы: constant тип_или_подтип; 
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Например, вместо строки с пометкой *** MARK *** в спецификации пакета MARKET 
можно поместить следующее объявление константы: 

STANDARD.OSCILLATOR: constant OSCILLATORS; 

Фактическое значение константы можно задать с помощью объявления 
STANDARD_OSCILLATOR : constant : = (0.05, 0.55, 0.95); 
которое следует поместить вместо строки с пометкой 77! MARK 77! 


7.2. ТЕЛА ПАКЕТОВ 

Реализация пакета осуществляется при помощи тела пакета. Введем два вида тел 
пакетов. Первый вид содержит только объявления: 
package body имя пакета is 
— Возможные объявления. 
end имя_пакета; 

Второй вид содержит член «последовательность_операторов»: 
package body имя_пакета is 
— Возможные объявления. 
begin 

— П оследовател ьность операторов. 
end имя_пакета; 

Еще один вид тел пакетов используется в связи с исключительными ситуациями. Он 
будет рассмотрен в гл. 11. 

Имялакета здесь должно быть идентично имени, указанному в спецификации 
пакета. Указывать имялакета после зарезервированного слова end необязательно. 
Каждое объявление известно в соответствующей спецификации пакета и может быть 
использовано в теле этого пакета. Обратное утверждение будет неверным, т. е. 
объявления, сделанные в теле пакета, неизвестны и не могут использоваться в его 
спецификации, так как они невидимы вне тела пакета. 

Спецификации и тела пакетов можно транслировать раздельно. В этом случае 
трансляция спецификации пакета должна предшествовать трансляции его тела. 

Вот простой пример тела пакета: 
package body DAYS.MODULE is 

Здесь нет ни объявлений, ни последовательностилператоров. 
end DAYS.MODULE; 

Это тело пакета соответствует спецификации пакета DAYS_MODULE, представленной 
в начале главы. Ввиду того что пакет DAYS_MODULE содержит лишь объявления 
типов и объектов, наличие тела у этого пакета не требуется. В тех случаях, когда пакет 
представляет собой только набор типов, констант и переменных, тело для пакета не 
обязательно. 

Однако наличие тела пакета обязательно требуется в том случае, если его 
спецификация содержит объявления подпрограмм или пакетов. Тела этих пакетов и 
подпрограмм должны образовывать часть тела данного пакета. 

Пример. Тело пакета, соответствующее спецификации пакета CHECKJ)ATES_ALT, 
таково: 

with TEXT-10; use TEXT-10; 
package body CHECK-DATES-ALT is 
LEAP-YEAR .- BOOLEAN; 

INPUT-LEAP = INTEGER; 



190 


Глава 7 


package body DAYS-MODULE is 

— Здесь должно располагаться тело 
-- пакета DAYS-MODULE . 
end DAYS-MODULE; 

function IS-VALID-DATE <FORM-DATE:DATE); 
return BOOLEAN is 
— Здесь должно размещаться тело 
— Функции. Оно идентично телу 

— одноименной функции из программы 
— ACCR-INTEREST. 

end IS-VALID-DATE; 

procedure FILI_IN-DATE 

(PROC-F-DATE : in out DATE; 

GOOD-DATE : out BOOLEAN) is 
— Сюда нужно вставить тело процедуры. 

— Оно идентично телу одноименной 

— процедуры из программы ACCR-INTEREST, 
end FILL_IN_DATE; 

end CHECK-DATES-ALT; 

Тело пакета CHECKEDATES^ALT из предыдущего примера имеет декларативную 
часть, но не содержит последовательности_операторов. Если же последователь- 
ность_рператоров присутствует, то она может выполнять, например, инициализацию 
некоторых переменных йакета. Следующий пример иллюстрирует этот процесс. 
Пример. Вот другая версия тела пакета CHECKEDATES_ALT: 

package body CHECK-DATES-ALT is 

— Сюда следует поместить все об'явления 
— из тела пакета предыдущего примера, 
package INT-IO is new INTEGER- ІО ( INTEGER) ; 
use INT-IO; 
begin 

PUT<“ Enter today's date as YYMMDD "); 

GET7 TODAYS-DATE.YEAR-NO ,2 ); 

GET(TODAYS-DATE.MONTH-NO, 2); ■ 

GET(TODAYS-DATE.DAY-NO, 2 >; 
end CHECK-DAYS-ALT; 

Структура этой версии пакета CHECK_DATES_ALT показана на рис. 7.1. 
Приведем еще примеры спецификаций и тел пакетов для ряда программ из 
предыдущих глав. 

Пример. Некоторые типы из программы YIELD_COMPUTATION (см. гл. 6) и 
функцию «-» можно свести в один пакет, предназначенный для вычисления дохода. 
Пакет имеет следующий вид: 

with CHECK-DATES-ALT ; 
package SECURITIES is 
use CHECK_DATES_ALT; 
type INTEREST is digits 13; 
type DISCOUNT-INTEREST is new INTEREST; 
type AT-MAT-INTEREST is new INTEREST; 
type INTEREST-KIND is<COUPON,AT-MATURITY, 

DISCOUNT); 

type DAY_COUNT_BASIS is (ACT-ACT,ACT-36© / 

M-30-Y-360 ); 
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PACKAGE CHECK_DATES_ALT 



type PRICES is digits 13; 
typs DISCOUNT-PRICES is new PRICES; 
type SECURITY < INT-PAYM , INTEREST-KIND ) is 
record 

SEC-NAME : STRING < 1 .. 10 ); 

SETL-DATE : DATE; 

MAT-DATE . DATE; 

DAY-KIND : DAY-COUNT-BASIS; 

YLD , INTEREST; 

case INT-PAYM is 
when AT-MATURITY «> 

ISSUE-DATE . DATE; 

S-RATE . AT-MAT-INTEREST; 

QT-PRICE . PRICES; 
when DISCOUNT -> 

DISC-PRICE > DISCOUNT-PRICES; 

DISC-RATE . DISCOUNT-INTEREST; 
when others *> null; 

end case; 
end record; 

function (X, Y , DATE ) return NATURAL; 

end SECURITIES; 


Соответствующее тело пакета таково: 

package body SECURITIES is 
function (X/ Y . DATA ) 

— Эта процедура подсчитывает количество прошед- 

— визе дней в предположении/ что в месяце 30 

— дней/ а в году - 360 (M_30_Y_360) . 
return NATURAL is 
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begin 

— Смде следует поместить тело функции/ см. гл. 6. 
end 

end SECURITIES; 

Другой полезный пакет, отслеживающий неприсутственные дни, приведен в 
следующем примере. Объявления и тела взяты в основном из программы 
ACCRJNTEREST (см. гл. 5). 

Пример. В состав этого пакета входит последовательность_операторов, выполняющая 
инициализацию списка праздников. Если потребуется изменить этот список, то можно 
соответствующим образом модифицировать текст тела пакета, а затем перекомпи¬ 
лировать его. 

with CHECK-DATES-ALT ; 
package LEGAL-HOLIDAYS is 
use CHECK-DATES-ALT; 

function rS_LEGAL_HOLIDAY<FORM-DATE : DATE) 
return BOOLEAN; 
end LEGAL-HOLIDAYS; 

— Здесь заканчивается спецификация, 
package body LEGAL-HOLIDAYS is 
NO-OF-HOLIDAYS : NATURAL = = 2; 

NO-GOOD-HOLIDAYS = NATURAL; 

GOOD-HOLIDAY = BOOLEAN; 

type HOLIDAYS is array <1 .. NO-OF-HOLIDAYS) 
of DATE; 

ACT-HOLIDAYS : HOLIDAYS == 

— Проинициализируем эту переменную 

— предполагаемыми значениями дат 

— праздников. Здесь принимаются во 

— внимание только компоненты даты 
— MONTH-NO / DAY-NO и YEAR-NO . 

( (MONDAY/JANUARY/7/4/1/1/1985)/ 

( MONDAY / JANUARY /1/1/1/1/1986)); 
function IS-LEGAL-HOLIDAY(FORM-DATE:DATE) 
return BOOLEAN Is 

begin 

for I in 1 .. NO-GOOD-HOLIDAYS 
loop 

if FORM-DATE.TOTAL-DAYS = 

ACT_HOLIDAYS(I).TOTAL-DAYS 
then 

return TRUE; 
end if; 
end loop; 
return FALSE; 

end IS-LEGAl_HOLIDAY; 

begin 

— Далее располагается последовательность 

— операторов данного пакета. Эти операторы 

— опять взяты из программы ACCR-INTEREST 

— из гл. 5. 

NO-GOOD-HOLIDAYS =» 6; 
for I in 1 .. NO-OF-HOLIDAYS 
loop 

NO-GOOD—HOLIDAYS := NO-GOOD-HOLIDAYS + 1; 

FILL_IN-DATE(ACT-HOLIDAYS(NO-GOOD-HOLIDAYS), 
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GOOD-HOLIDAY) ; 
if not GOOD-HOLIDAY 
then 

NO-GOOD-HOLIDAYS NO-GOOD-HOLIDAYS - if 
end if; 


end loop; 

end LEGAL-HOLIDAYS; 


Вспомните, что ресурсы, объявленные в теле пакета (например, переменные 
NO_GOOD_HOLIDAYS и NO_OF_HOLIDAYS), неизвестны и недоступны за пре¬ 
делами этого тела. 

Последним пакетом данного раздела будет пример пакета для программы 
NAME_PHONE из гл. 4. Он позволяет выполнять некоторые полезные операции с 
текстами. 


Пример. Этот пакет для программы NAME_PHONE назван LINE_HANDLING 
(обработка_строк). 

package LINE-HANDLING is 

— Член СОММА (запятая) отброшен/ и пере- 

— менная WRK-LINE стала компонентом струк- 

— туры T-REC . 

type LINE-LENGTH is INTEGER range 0 .. 255; 
type T_REC (LINE-LN : LINE-LENGTH) is 
record 

WRK-LINE : STRING(1 .. T-LENGTH); 
end record; 

procedure LOW_TO_UPPER(F_REC = in out T-REC); 
procedure IGNORE—LEADING_SPACES( 

STRT-POS = out NATURAL; 

F-REC : in out T-REC); 
procedure FIND_NEXT_SP_OR_COMMA( 

STRT-POS : in out NATURAL; 

END-POS = in out NATURAL; 

F-REC : in out T-REC); 
procedure PLACE-SPACES( 

STRT-POS : in out NATURAL; 

END-POS = in out NATURAL; 

F-REC : in out T-REC); 
end LINE-HANDLING; 


Соответствующее тело пакета, во многом совпадающее с текстом из программы 
NAME_PHONE, таково: 

package body LINE-HANDLING is 

procedure LOW-TO-UPPER(F-REC , in out T-REC) 

is 

begin 

for I in 1 .. F-REC.LINE-LN 
loop 

case F-REC.WRK_LINE(I) is 
when 'a' 'z' =>> 

F-REC.WRK-LINE(I) ,« CHARACTER'UAL< 

CHARACTER'POSt'A') - 
CHARACTER'POS('•') + 

CHARACTER'POS < WRK-LINE <I)) ); 
when others ■> NULL; 
end case; 
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end loop; 
end LOW-TO-UPPER; 
procedure Г GNORE-LEAD1NG-SPACES( 

STRT-POS . out NATURAL; 

F-REC , in out T_REC) is 

begin 

for I in 1 .. F_REC.LINE-LN 
loop 

STRT-POS I; 

exit when F-REC.WRK-LINE(I) /- ' '; 
end loop; 

end 1GNORE-LEADING-SPACES; 
procedure FIND_NEXT_SP_OR_COMMA( 

STRT-POS : in out NATURAL; 

END-POS : in out NATURAL; 

F-REC , in out T-REC) ie 

— Эта процедура присваивает переменной 

— END-POS еначение номера поеиции послед- 

— него символа/ отличающегося от пробела 

— или запятой и располагающегося после 

— позиции строки STRT-POS. 
begin 

END-POS STRT-POS; 
for I in STRT-POS .. F-REC.LINE_LN 
loop 

exit when 

F_REC.WRK-LINE(I) - ' ' or 
F-REC.WRK-LINE <I) = '/'; 

END-POS := I; 
end loop; 

end F TND-NEXT-SP-OR-COMMA; 
procedure PLACE-SPACES( 

STRT-POS : in out NATURAL; 

END-POS = in out NATURAL; 

F-REC : in out T-REC) is 

— Эта процедура заменяет на пробелы символы/ 

— расположенные между позициями строки 

— STRT-POS и END-POS/ и заменяет на пробел 

— первую обнаруженную запятую, 
begin 

for I in STRT-POS .. END-POS 
loop 

F-REC.WRK-LINE(I) ' '; 

end loop; 

for I in END-POS + 1 .. LINE-LN 
loop 

IF F-REC.WRK-LINE(I) - 
then 

F-REC.WRK-LINE<I) ' '; 
exit; 
end if; 

exit when F-REC.WRK-LINE(I) /- ' '; 
end loop; 
end PLACE-SPACES; 
end LINE-HANDLING; 
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Применение пакета LINE_HANDLING демонстрируется в следующем примере, 
который иллюстрирует задачу проверки входных данных. 

Пример. Предположим, что на вход программы поступают целые числа, возможно, по 
нескольку штук в строке. Следующая программа будет печатать текст Valid integer 
(Корректное целое число) или Invalid integer (Ошибочное целое число) для каждой 
группы символов, не включающих пробел, по бокам которой располагаются по 
крайней мере по одному пробелу или запятые. (Повторите определение целых 
литералов, оно дано в гл. 1.) Проверяются только десятичные целые числа. Признак 
конца данных-XX. 

with LINE-HANDLING; 
use LINE-HANDLING; 
with TEXT-ID; use TEXT-IO; 
procedure CHECK-FOR-INTEGERS is 
CURR-REC : T-REC; 

— Обеспечивается доступность и непосред- 

— ственная видимость типа T-REC из паке- 

— та LINE-HANDLING. 

INPUT—LN = NATURAL; 

— Эта переменная задает длину строки. 

INP-LINE = STRING! 1 .. INPUT-LN) ; 

CURR-ST : NATURAL; 

CURR-END : NATURAL; 

END-A-NO : NATURAL; 

A-NUMBER : STRING(1 .. END-A-NO); 
function CHECK-NUMBER(F-STRING = STRING; 

F-END : NATURAL) 
return BOOLEAN is 

begin 

for I in 1 .. F-END 
loop 

case F_STRING!I) is 

when 'O' .. '9' => NULL; 
when I '+' => 

— Только первый символ может 

— быть знаком, 
if I /= 1 

then 

return FALSE; 
end if; 

when => 

— Наличие символа подчеркивания в числе 

— разрешено/ но этот символ должен быть 

— окружен цифрами или другими символами 

— подчеркивания. 

if I = 1 or I = F-END or else 

not!F-STRING!I—1) in 'O' .. '9' or 

F-STRING!1-1) = '_') or else 

nottF-STRING!1+1) in '0' .. '9' or 

F-STRING!I+1) = '_') 

then 

return FALSE; 
end if; 
when 'E' => 

— Если присутствует показатель степени/ 

— то он должен быть окружен цифрами. 
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if I = 1 or I=F_END or else 
F_STRING(I—1) not in 'O' . . '9' or else 
F_STRING<I+1) not in 'O' . . '9' 
then 

return FALSE; 
end if; 

when others => return FALSE; 
end case; 
end loop; 
return TRUE; 
end CHECK_NUMBER; 
begin 

GET-LINE <INP-LINE/ INPUT-LN); 
while INP—LINE /= “XX" 
loop 

CURR-REC .-= (INPUT-LN, INP-LINE); 

— Переменной CURR-REC присваивается значе- 
— ние агрегата. 

IGNORE-LEADING-SPACES(CURR-ST / CURR-REC); 
LOW_TO_UPPER(CURR-REC); 
while CURR-ST /= CURR-REC.LINE-LN 
loop 

FIND_NEXT_SP_OR_COMMA< CURR-ST / CURR-END / 
CURR REC) / 

END-A-NO := CURR-END - CURR-ST.; 

A-NUMBER := CURR-REC.WRK-LINE(CURR-ST .. 

CURR-END - 1); 

— Это - присваивание вырезки. 

PUT(A-NUMBER); 

if CHECK-NUMBER<A_NUMBER/ END-A-NO) = TRUE 
then 

PUT<" Valid number "); 
else 

PUT<" Invalid number "); 
end if; 

NEW-LINE; 

PLACE-SPACES(CURR-ST / CURR-END,CURR-REC); 
end loop; 

GET-LINE <INP_LINE / 1NPUT-LN); 
end loop; 

end CHECK-FOR-INTEGERS; 


Обработка объявления пакета включает вначале обработку его спецификации, а 
затем тела. Обработка спецификации пакета состоит из обработки видимой части, за 
которой следует обработка приватной части. Обработка тела пакета состоит из 
обработки декларативной части и выполнения последовательности операторов. Мо¬ 
жет показаться некорректным, но тем не менее это справедливо: обработка тела пакета 
включает выполнение его последовательности_операторов 1) . 


1) Термин «обработка» (elaboration) в Аде применяется для обозначения действий, произво¬ 
димых с объявлениями. Термин «выполнение» (execution) обычно относится к исполняемым 
операторам языка, но не к объявлениям. Поэтому автор в данном случае обращает внимание 
читателей на некоторую терминологическую несогласованность.-Ярим, иерее. 
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7 . 3 . ПРАВИЛА ВИДИМОСТИ ДЛЯ ПАКЕТОВ 

В гл. 6 были даны определения области действия и видимости идентификаторов 
для подпрограмм и блоков. Теперь к ним будут добавлены правила, регулирующие 
видимость и область действия для пакетов. 

В разд. 7.1 упоминалось, что видимая часть спецификации пакета экспортируете^ 
в другие программные сегменты. После того как ресурсы из видимой части будут 
экспортированы, например, при помощи объявлений пакетов или благодаря употребле¬ 
нию фразы подключения контекста with, эти ресурсы получают область действия, 
простирающуюся до конца пакета, подпрограммы или блока, которые их импортиру¬ 
ют. Видимость экспортированных ресурсов зависит от возможного «заслонения» их 
объявлений в некоторых участках области действия (см. гл. 6). Если экспортируемые 
ресурсы невидимы непосредственно, то для видимых величин нужно употреблять 
составные имена. Непосредственная же видимость, когда можно пользоваться прос¬ 
тыми именами, обеспечивается при помощи фразы использования use. 

Объявления находятся в пределах спецификации и тела пакета. При этом они 
могут появляться в видимой части спецификации пакета, в приватной части специфика¬ 
ции пакета и в теле пакета. Действие видимых объявлений пакета в его пределах 
распространяется на приватную часть пакета и на его тело. Действие объявлений, 
расположенных в приватной части, распространяется и на тело пакета, а объявления, 
расположенные в теле пакета, действуют только в пределах этого тела. Ясно, что 
нельзя ссылаться на ресурс за пределами его области действия. 

Пример. Здесь показано применение правил, касающихся области действия и 
видимости. 

procedure SCOPE_N_ V ISIBILITY 

— Далее располагается спецификация пакета. 

LL , INTEGER 8; 
package АА is 
II : INTEGER; 

— Область действия идентификаторов II 

— и JJ охватывает спецификацию и тело 

— пакета АА. Она также охватывает 

— процедуру SCOPE_N_VISIBILITY, начи- 

— ная с этой точки и до конца процедуры, 
type JJ is private; 

function CCXK-F : INTEGER) return JJ; 
private 

type JJ is new INTEGER; 

— Область действия и видимость иденти- 

— Фикатора JJ начинаются здесь и закан- 

— чиваются в конце тела пакета АА. 
end АА; 

— Далее располагается тело пакета, 
package body АА is 
КК :« INTEGER 5; 

— Область действия и видимость идентифи- 

— катора КК начинаются здесь и яаканчива- 

— ются в конце тела пакета АА. 

— Идентификатор КК не видим за пределами 

— данного тела пакета. 

function СС (K_F , INTEGER) return JJ is 
begin 

if K_F > KK 
then 
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return JJ < 2*K_F); 

— Здесь используется преобразование 
-- величины к производному типу. 

еіве 

return JJ(K_F + KK); 
end if; 
end CC; 
end AA; 
use AA; 

MM, NN = JJ; 

— Переменные ММ и NN относятся к приватному 
— типу JJ. 
begin 

ММ СС ( LL ); 

II LL; 

— Переменная II видима непосредственно. 

NN ММ; 


— Присваивание для об'актов приватных типов 

— разрешается. 

PUT(" now NN and ММ are equal "); 

— Палее располагается составной оператор 

— блока, 
declare 

II . INTEGER 13; 

— Область действия этого идентификатора 
— II и его видимость начинаются в этой 

— точке и заканчиваются в конце блока. 

— Идентификатор II, об'явленный в пакете 
— АА, теперь заслонен. Но его можно еде- 

— лать видимым, если использовать обо- 

— значение AA . I I. 
begin 

NN СС(ІІ); 
if ММ - NN 

then PUT<" equal ">; 
else PUT<" unequal ">; 
end if; 
end; 

— Конец блока. 

— Те же самые операторы, расположенные 
— вне блока, дали бы иной результат. 

NN СС(ІІ); 
if ММ - NN 

then PUT(" second equal "); 
else PUT(" second unequal "); 
end if; 

end SCOPE_N_VISIBILITY; 


7.4. ОБЪЯВЛЕНИЯ ПЕРЕИМЕНОВАНИЯ 

К этому моменту мы уже встретились с достаточно большим количеством 
программ, в которых использовались составные имена. Если отсутствует фраза 
использования use, то все видимые идентификаторы можно использовать только с 
помощью составных имен. Если же будет несколько уровней вложенности пакетов, то 
запись составных идентификаторов станет весьма громоздкой и неудобной. Более того. 
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иногда не рекомендуется употреблять фразу use вообще, чтобы избежать возможной 
путаницы и конфликтов между именами. В таких ситуациях объявление переименова¬ 
ния дает возможность ввести сокращенную форму обозначения для многоуровневых 
составных имен. 

Здесь будут введены три вида объявлений переименования (renaming declarations). 
Первый из них переименовывает объекты, второй-спецификации подпрограмм, а 
третий-пакеты. Прочие виды объявлений переименования, затрагивающие, например, 
исключительные ситуаций, будут рассмотрны в гл. 11. 

Первый вид объявлений переименования имеет форму 
идентификатор : тип_или_подтип renames имя объекта; 

Например, в последней версии пакета CHECK DATES-ALT (разд. 7.2) можно 
записать такое объявление переименования: 

CURRENT-MONTH : MONTHJNT renames TODAYS_DATE . MONTHJMO; 

Объявления' переименования для спецификаций подпрограмм имеют структуру 
новое имя подпрограммы renames старое_имя_подпрограммы; 

Например, если в подпрограмме объявлен пакет LINE_HANDLING, то можно 
воспользоваться таким объявлением: 

L_TO_U renames LINE-HANDLING . LOW_TO_UPPER; 

Третий вид объявлений переименования принимает форму 

package новое_имя_пакета renames старое_имя_пакета; 

Пусть, например, имеется такое объявление пакета: 

package TEXT-MANIP is 
package LINE-HANDLING is 

end LINE-HANDLING; 

— Здесь ведаются прочие об'явления, 
end TEXT-MANIP; 

Тогда можно записать следующее объявление, переименовывающее пакет: 

package NEW_LINE_HAND renames TEXT_MANIP. LINE-HANDLING; 
Объявление переименования может оказаться неоднозначным, поэтому нужно вни¬ 
мательно следить за употреблением введенных «псевдонимов». 

7.5. ВВЕДЕНИЕ В РОДОВЫЕ ПАКЕТЫ 

Поскольку Ада-язык со строгой типизацией, типы должны быть выражены явно к 
тому моменту, когда программы, в которых они используются, начинают компили¬ 
роваться. Кроме того, существуют строгие правила, касающиеся согласования факти¬ 
ческих и формальных параметров. Поэтому для написания подпрограммы, которая 
была бы достаточно универсальна, чтобы работать с множеством типов, уже рас¬ 
смотренные нами выразительные средства Ады не обеспечивают должной гибкости. В 
связи с этим строгость правил использования типов в Аде дополняется ее родовыми 
средствами (generic facilities), которые позволяют создавать некие трафареты, или 
модели, пакетов и подпрограмм. 

Программы, написанные с применением родовых средств, не годятся для не¬ 
посредственного выполнения. Поэтому перед выполнением производится конкретиза¬ 
ция родовых пакетов или подпрограмм. При конкретизации (instantiation) создается 
вполне определенная работоспособная версия пакета или подпрограммы. Эта конкрет¬ 
ная версия генерируется с использованием некоторых фактических параметров 
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(фактических типов). Выполняется согласование фактических параметров с родовыми. 
Родовые параметры играют роль, в какой-то степени сходную с ролью формальных 
параметров подпрограммы. 

Общая форма родового объявления такова: 
generic объявление_родового_параметра; 

Обычный пакет можно превратить в родовой, если поместить перед ним родовое 
объявление. 

В пакете TEXTJO (см. приложение В) содержится ряд родовых пакетов. 
Например, в его состав входит родовой пакет INTEGERJO, который имеет следую¬ 
щий вид: 

generic 

type NUM is range <> ; 

— Данная строка представляет собой родовое 

— об'явление. Это - об'явление родового 

— параметра. Здесь NUM - родовой параметр 

— типа/ который согласовывается с любым 
—целым типом. Любой фактический параметр/ 

— представляющий собой имя целого типа / 

— может быть согласован с NUM. 
package INTEGER-IO is 

— Здесь размещаются об'явления об'ектов 

— и подпрограмм, 
end INTEGER_IO; 

Во многих предыдущих программах были использованы конкретизации родового 
пакета INTEGERJO, при этом применялась такая схема: 

package имя пакета is new имя_родового пакета (один или более родовых факти- 
ческих_параметров); 

Например, если AGE -целый тип, то конкретизация может принять вид 
package INTJO is new INTEGERJO (AGE); 

В этой конкретизации фактический родовой параметр-это целый тип AGE. Пред¬ 
принимать конкретизацию этого пакета не с целым типом было бы ошибкой. 

После конкретизации пакета INTEGERJO с использованием фактического пара¬ 
метра AGE реализуется пакет INT JO. При этом в каждом объявлении, содержащемся 
в спецификации пакета INTEGERJO, родовой параметр NUM заменяется на AGE. 
Процесс конкретизации иллюстрирует рис. 7.2. 

Перечислим некоторые другие родовые пакеты, входящие в состав пакета 
TEXTJO. Они также использовались в приведенных программах. Ниже следует пакет, 
предназначенный для ввода-вывода чисел с плавающей точкой: 
generic 

type NUM is digits <> ; 

— Данная строка представляет собой родовое 
■— об'явление. Это - об'явление родового 

— параметра. Здесь NUM - родовой параметр 

— типа/ который согласовывается с любым 

—- плавающим типом. Любой фактический пара- 

— метр/ представляющий собой имя плавающе- 
■— го типа/ может быть согласован с NUM . 

package FLOAT-IO is 

— Содержимое этой части приведено в 

— приложении В. 
end FLOAT-IO; 
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Рис. 7.2. Конкретизация пакета INTEGER ІО. 

Теперь вниманию читателей предлагается описание средств пакета ТЕХТ_ІО, пред¬ 
назначенных для работы с фиксированными типами: 

generic 

type NUM is delta <> ; 

— Данная строка представляет собой родовое 

— об'явление. Это - об'явление родового 

— параметра. Здесь NUM - родовой параметр 

— типа/ который согласовывается с любым 

— фиксированным типом. Любой фактический 

— параметр/ представляющий собой имя фик- 

— сированного типа/ может быть согласован 

— с NUM . 

package FIXED-IO is 

— Содержимое этой части приведено в 

— приложении В. 
end FIXED -ГО/ 

В заключение приведем средства для перечисляемых типов: 
generic 

type ENUM is (О) ; 

—- Данная строка представляет собой родовое 

— об'явление. Это - об'явление родового 

— параметра. Здесь ENUM - родовой параметр 

— типа/ который согласовывается с любым 

— перечисляемым типом. Любой фактический 

— параметр/ представляющий собой имя пере- 

— числяемого типа/ может быть согласован 

— с ENUM. 

package ENUMERATION—I0 is 

— Содержимое этой части приведено в 

— приложении В. 
end ENUMERATI0N_I0/ 

В приложении В есть и другие родовые пакеты, такие, как DIRECT IO (Прямой 
ввод-вывод). Кратко опишем спецификацию родового объявления для DIRECT_IO : 

generic 

type ELEMENT-TYPE is private; 

— Данная строка представляет собой родовое 

— об'явление. Это - об'явление родового 

— параметра. Здесь ELEMENT-TYPE - родовой 

— параметр типа/ который согласовывается 
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— с любым типом/ допускающим присва- 

— ивание и проверку на равенство и нера- 

— венство. Поэтому фактический параметр 

— может являться именем приватного типа/ 

— именем комбинированного типа/ именем 

— регулярного типа/ именем целого типа/ 

— именем перечисляемого типа/ именем 

— плавающего типа/ а также именем неко- 

— торых других типов, 
package DTRECT-IO is 

— Содержимое этой части приведено в 

— приложении В. 
end DIRECT. ГО; 

Пример. Продемонстрируем гибкость, обеспечиваемую родовыми параметрами 
приватного типа, на примере конкретизаций пакета DIRECT_IO с использованием 
ряда типов в качестве фактических параметров: 

with SECURITIES/ DIRECT-IO; 
use SECURITIES; 

— Здесь предполагается/ что пакет SECURITIES 
— (см. разд.?.2) уже оттранслирован, 
package INSTANT_DIR_IO is 

package DIR-RATE is new DIRECT-IO < DATE >; 
package DIR-SECURITY is new 

DIRECT-IO ( SECURITY >; 
package DIR-INTEREST is new 

DIRECT-IO ( INTEREST >; 
package DIR-INT-KIND is new 

DIRECT-IO < INTEREST-KIND >; 


end INSTANT-DIR-IO; 

Пакет INSTANT_DIR_IO-3 to совокупность из четырех пакетов, каждый из 
которых способен целиком использовать ресурсы, предоставляемые родовым пакетом 
DIRECT-IO (процедуры, функции и типы). Родовой параметр приватного типа 
замещается каждым из четырех фактических параметров, создавая четыре независимых 
пакета - каждый со своим набором типов, функций, процедур и т. д. 

Обратите внимание на то, что родовое объявление приватного типа или ограни¬ 
ченного приватного типа имеет довольно-таки общий вид и предоставляет пользова¬ 
телю значительную свободу в отношении выбора типа фактического параметра. 

При объявлении в пакете приватных и ограниченных приватных типов на ис¬ 
пользование объектов этих типов накладываются очень жесткие ограничения. Однако 
если они используются как родовые параметры, то становится верным обратное 
утверждение: в качестве фактических параметров можно использовать любые типы 
независимо от.того, какие ограничения (такие же или меньшие) накладываются на 
допустимые для этих типов операции. 

Пакет SEQUENTIAL -ІО из приложения В-это еще один пример родового пакета. 
Его родовое объявление такое же, как и у пакета DIRECT-IO. В следующей главе будет 
изучен каждый из пакетов, входящих в приложение В. На примерах будет показано их 
применение. 

Приложение В, помимо указанных выше родовых пакетов, содержит также 
спецификацию пакета STANDARD. Этот пакет имеет в своем составе предопределен¬ 
ные объекты (такие, как константы, обозначающие специальные символы кода ASCII), 
типы (BOOLEAN, INTEGER, FLOAT и т.д.) и функции (" = " для целых чисел, строк и 
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т. д.), а также фразы представления. Этот пакет непосредственно видим в любой 
программе на Аде. Он играет особую роль для тех программ, которые будут детально 
рассмотрены в гл. 9. 

Может создаться впечатление, что применение родовых средств аналогично 
простой подстановке текста в программу. Однако это верно лишь отчасти, так как 
после замены формальных родовых параметров фактическими параметрами произ¬ 
водится обработка конкретизированного пакета или подпрограммы непосредственно в 
той точке программы, где они появляются. Подстановка текста, напротив, при¬ 
меняется к уже обработанным ресурсам. 

Составление родовых пакетов - весьма сложная задача. Разъяснение методов 
проектирования и составления родовых пакетов выходит за рамки настоящей книги. 
Вместо этих разъяснений здесь были приведены примеры достаточно прямолинейного 
использования родовых пакетов и их конкретизации. 


УПРАЖНЕНИЯ 

1. Перепишите заново программу DATE_CONVERSION из гл. 2, используя последнюю 
версию пакета CHECK_DATES_ALT из разд. 7.2. 

2. Перепишите заново программу NAME. PHONE из гл. 4. используя пакет 
LINE.HANDLING из разд. 7.2. 

3. Выделите из программы GR_POINT_AVE (см. гл. 4) нужную спецификацию пакета и тело 
пакета для работы со студенческими ведомостями успеваемости. Перепишите эту программу 
заново с использованием нового пакета. 

4. Увеличьте возможности пакета LINE_HANDLING (Обработка_строк) путем составления 
спецификаций и тел новых подпрограмм 

Функция Описание 

EXTRACT Выделяет часть строки WRK JLINE (т. е. подстроку), имеющую за¬ 

данную длину и начинающуюся с нужной позиции исходной строки 
APPEND Имеет два формальных параметра типа ТЛЕС и вырабатывает значе¬ 

ние типа T_REC, компонента WRK_LINE которого является сцепле¬ 
нием компонент WRK_LINE этих двух формальных параметров 
LOCATE Имеет два формальных параметра типа T_REC, обозначаемых как 

F ЛЕС 1 и F ЛЕС 2. Значение, вырабатываемое функцией, указывает 
начальную позицию первого вхождения компоненты F_REC_1. 
WRK_LINE в F_REC_2 . WRK_LINE 

5. Напишите пакет (спецификацию и тело), содержащий две функции. Одна из них пре¬ 
образует целые числа в строки символов, а другая-строки символов в целые числа. 
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Пакеты ввода-вывода в языке Ада 


8.1. ВВЕДЕНИЕ В ПАКЕТЫ ВВОДА-ВЫВОДА 

8.1.1. Концепция файлов 

В Аде имеется ряд пакетов, предназначенных для работы с файлами. Файлы 
(имеются в виду внешние файлы)-это совокупности элементов данных, размещенные 
за пределами программы, обычно на внешнем устройстве, таком, как магнитный диск 
или лента. Пока будем предполагать, что данные в файле принадлежат к одному и 
тому же Типу 1) . Во внешнем файле, если только он не пуст, всегда существует первый 
по порядку элемент. С другой стороны, считается, что файл неограничен, так как 
теоретически после последнего элемента всегда можно добавить еще один. Так, после 
элемента с номером 10001 можно добавить элемент с номером 10002. На практике же 
размеры внешних файлов всегда лимитированы реальным объемом памяти внешнего 
устройства или особенностями конкретной реализации системы. 

Может создаться впечатление, что внешние файлы подобны массивам. Однако 
существуют три важных различия. Во-первых, массив составляет часть программы, а 
внешний файл является частью ее операционного окружения. Во-вторых, границы 
массива известны во время выполнения программы, а верхняя граница внешнего 
файла, как пояснялось выше, может быть неизвестна. В-третьих, доступ к элементам 
массива производится единообразным способом 2) , а доступ к элементам файла может 
выполняться различными методами. 

8.1.2. Пакеты языка Ада, 
предназначенные для работы с файлами 

В Аде есть ряд пакетов, реализующих основные операции ввода-вывода. Эти 
пакеты обеспечивают обмен информацией между программами и внешними файлами. 
В Аде существуют следующие пакеты ввода-вывода: DIRECT IO (Прямой_ввод- 
вывод, т. е. работа с файлами прямого доступа), SEQUENTIALJO (Последователь- 
ный_ввод-вывод), ТЕХТ_ІО (Текстовый_ввод-вывод) и LOW LEVEL ІО' (Ввод_вы- 
вод_при_помощи_средств_низкого_уровня). Предполагается, что пакет LOWJLEVELJO 
обслуживает не слишком часто встречающиеся на практике устройства 3) . Поэтому в 
настоящей книге он не рассматривается. Спецификации остальных пакетов ввода- 
вывода приведены в приложении В. 

Беглый взгляд на остальные три пакета показывает, что в них входят некоторые 
типы и подпрограммы, имеющие одинаковые имена. Во всех этих пакетах имеются 
ограниченный приватный тип FILE_TYPE, перечисляемый тип FILE_MODE и про¬ 
цедуры с именами OPEN, CLOSE, CREATE и DELETE. Эти процедуры будут описаны 
в следующих разделах. > 


11 В общем случае это, разумеется, неверно,- Прим, перев. 

2) С помощью индексов -Прим, перев. 

3) Ввод-вывод низкого уровня позволяет учесть все особенности работы конкретных 
устройств и как следствие повысить эффективность операций ввода-вывода. Поэтому он пригоден 
не только для нестандартных устройств- Прим, перев. 
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8.1.3. Присваивание имени файлу 

При создании файлов им даются некоторые имена. Имя (NAME) файла принад¬ 
лежит к типу STRING и служит формальным параметром для ряда подпрограмм из 
пакетов ввода-вывода. Оно однозначно идентифицирует файл во внешней среде. Файл 
известен в операционном окружении языка Ада, которое включает операционные 
системы и прочие языки, под некоторым обозначением, которое является фактическим 
параметром, соответствующим NAME. В области действия имен программы это 
внешнее имя получает новое обозначение. Новое имя действует до тех пор, пока файл 
используется, и оно сродни внутреннему имени. Это-значение фактического пара¬ 
метра, соответствующего формальному параметру FILE типа FILE_TYPE. 

Тип FILE_TYPE используется для внутренней идентификации внешнего файла. 
Всякий раз, когда в книге будет использоваться термин файл (в противоположность 
термину внешний файл), будет иметься в виду формальный объект типа FILE_TYPE. 

Объявление типа FILE_MODE (Режим_обмена_информацией_с_файлом) суще¬ 
ствует в двух разновидностях. Первая версия объявления 
type FILE MODE is (IINLFILE, INOUT_FILE, OUT_FILE); 
относится к пакету DIRECT IO, а вторая 
type FILE.MODE is (IN_FILE, OUT_FILE); 

-к пакетам SEQUENTIALIO и TEXT_IO. 

Параметр типа FILE_MODE определяет направление передачи информации ме¬ 
жду внешним файлом и программой. Если объект типа FILE_MODE принимает 
значение IN_FILE, то разрешается чтение данных, т. е. только передача информации из 
файла в программу. Для значения параметра, равного OUT_FILE, данные записыва¬ 
ются во внешний файл. А если режим обмена информацией с файлом устанавливается 
равным INOUT_FILE, то можно выполнять как чтение данных из файла, так и запись в 
него. Этот режим допускается только при использовании пакета DIRECTJO 1) . 


8.1.4. Создание файла 

Если внешний файл не существует, то он должен быть создан при помощи 
обращения к процедуре CREATE. Объявление этой процедуры одинаково для всех 
пакетов ввода-вывода и отличается лишь значением параметра MODE, принимаемым 
по умолчанию. Объявление имеет вид 

procedure CREATE (FILE > in out FILE-TYPE i 
MODE : in FILE-MODE INOUT-FILE ; 

NAME . in STRING .« "" ; 

FORM , in STRING ,,H ); 

Эта процедура входит в состав пакета DIRECTJO. В пакетах SEQUENTIAL IO и 
ТЕХТ_ІО умалчиваемое значение формального параметра MODE равно OUT_FILE. 

В качестве значения параметра NAME, принимаемого по умолчанию, берется 
пустая строка. Если для NAME не задан фактический параметр или же если он равен 
пустой строке, то создается так называемый временный файл, доступ к которому 
становится невозможным после завершения главной программы. Если же фактический 
параметр, соответствующий NAME, указывается, то он должен представлять собой 
внешнее имя файла и обязан подчиняться правилам обозначения внешних файлов, 


11 Точнее, конкретизации этого родового пакета .-Прим, перев. 
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принятым на конкретной ЭВМ. Очевидно, что параметр NAME зависит от реализации 
языка. 

Четвертый формальный параметр процедуры CREATE -это строка FORM. Дан¬ 
ный формальный параметр также является зависящим от реализации. Он может 
определять различные характеристики внешнего файла, такие, как коэффициент блоки¬ 
рования, период сохранения файла и т. п. Если этот параметр опущен, то в силу вступят 
действующие на данном ЭВМ умалчиваемые значения. 

Пример вызова процедуры CREATE: 

CREATE < FILE «> TRANS-FILE/ 

— Этот файл может быть рабочим 

— файлом/ т.е. мы можем записывать 

— в него вспомогательную информацию. 

MODE -> INOUT-FILE/ 

— Этот режим допустим только для 
— Файлов с прямой организацией. 

NAME -> "FY8603.DAT", 

— В этой строке задается внешнее имя 

— файла. Здесь оно обозначает третий 

— месяц 1986 финансового года. 

FORM => ) і 

— Аля этого параметра будет взято 

— значение/ принятое по умолчанию. 

— Вот пример этого значения для языка 
— Ада/ реализованного на ЭВМ типа VAX.- 
— FORM => "ORGANIZATION SEQUENTIAL"; 

Здесь предполагается, что конкретизация пакета DIRECT_IO видима непосредственно. 
Пользуясь позиционной формой записи, можно записать эквивалентное обращение к 
этой процедуре 

CREATE (TRANS_FILE, INOUT_FILE, "FY8603.DAT", " " ); 


8.1.5. Открытие файла 

Если процедура создания закончилась успешно, т. е. не возникло исключительной 
ситуации, то созданный файл будет находиться в открытом состоянии. Открытие 
файла означает установление связи между созданным внешним файлом и объектом 
типа FILE_TYPE. (Вспомните, что под термином файл понимается объект типа 
FILEJTYPE.) 

Внешний файл мог существовать и до начала выполнения программы, т. е. он мог 
быть создан раньше. Тогда связь между объектом типа FILE. TYPE и внешним файлом 
будет установлена после успешного завершения процедуры OPEN. Критерием успеш¬ 
ности здесь служит отсутствие каких-либо исключительных ситуаций во время вы¬ 
полнения процедуры OPEN. Процедура CLOSE прерывает связь между объектом типа 
FILEJTYPE, т.е. собственно файлом, и внешним файлом. 

В объявлении процедуры OPEN присутствуют те же самые формальные пара¬ 
метры, что и у процедуры CREATE: 

procedure OPEN ( FILE = in out FILE-TYPE ; 

MODE : in FILE-MODE > 

NAME , in STRING ; 

STRING 


FORM . in 
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В отличие от процедуры CREATE здесь нет умалчиваемых значений для параметров 
MODE и NAME, а это означает, что задание параметров MODE и NAME является 
обязательным. Поэтому при открытии файла всегда следует указывать режим обмена 
информацией с ним, т. е. параметр MODE. 

Пример открытия файла: 

OPEN ( FILE »> TRANS_FILE, 

MODE -> INOUT_FILE / 

— Этот режим подразумевает использо- 

— вание пакета DIRECT -ІО . 

NAME -> " FY8603.DAT", 

— Здесь задается внешнее имя файла. 

FORM 

— Здесь принимается значение/ выбира- 

— емое по умолчанию. 

В позиционной форме вызов процедуры OPEN можно'записать так: 

OPEN (TRANS_FILE, INOUT.FILE, "FY8603.DAT", ” " ); 

Здесь опять-таки предполагается, что конкретизация пакета DIRECTJO видима 
непосредственно. 


8.1.6. Неизменяемые характеристики файла 

Внешнему файлу (после его создания) присваиваются некоторые неизменяемые 
характеристики. Точный вид этих характеристик зависит от конкретной системы, 
однако следует ожидать, что это будут параметры, характеризующие организацию 
внешнего файла и, возможно, размер записей в файле, а также права доступа к нему. 
При открытии этого внешнего файла в будущем данные неизменяемые характеристики 
сохранятся. Если при открытии файла процедурой OPEN указываемые для нее 
параметры не будут согласоваться с неизменяемыми характеристиками, то возникнут 
исключительные ситуации. Это может, например, случиться, если вид организации 
файла, указанный в параметре FORM процедуры OPEN, окажется несовместимым с 
организацией внешнего файла, установленной при его создании. Исключительные 
ситуации могут возникать и во многих других случаях, например если предпринимает¬ 
ся попытка повторно открыть уже открытый файл. В пакете ІО EXCEPTIONS 
определена большая часть исключительных ситуаций, связанных с обработкой файлов. 
Эти исключительные ситуации и их обработка будут рассмотрены в гл. 11. 

8.1.7. Закрытие файла 

Объявление процедуры CLOSE таково: 

procedure CLOSE (FILE : in out FILEJTYPE); 

Пример вызова этой процедуры: 

CLOSE (TRANS.FILE); 

Во время выполнения программы внешний файл можно открывать и закрывать 
неоднократно. Собственно файл (внутренний объект) также можно несколько раз 
открывать и закрывать во время выполнения программы. При этом можно один и тот 
же файл (внутренний объект) при открытии связывать в разное время с разными 
внешними файлами. 
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8.1.8. Уничтожение внешнего файла 

Если внешний файл открыт, то его можно физически уничтожить с помощью 
обращения к процедуре DELETE. Ее объявление таково: 

procedure DELETE (FILE : in out FILE.TYPE); 

Пример вызова этой процедуры: 

DELETE (TRANS.FYLE); 

8.1.9. Пример программы 

Следующая программа иллюстрирует описанные выше средства Ады. Она создает 
при помощи родового пакета DIRECT.IO 12 внешних файлов с внешними именами от 
FY8601.DAT до FY86i2.DAT. 

Программа CREATE_12_TRANS_F1LES 

with DIRECT- IО ; 

PROCEDURE CREATE-12-TRANS-FILES is 
— Как отмечалось в конце гл.?/ пакеты 

— DIRECT- 10 и SEQUENTIAl_ ІО имеют родовой 

— параметр ELEMENT-TYPE, 
type TRANS-RECORD is 
record 

INFO = STRING (1 .. 80 ) ; 
end record > 

package DIR-IO is new DIRECT-IO ( 

ELEMENT-TYPE => TRANS-RECORD ) ; 

use DIR-IO 

TRANS-FILE = FILE-TYPE ; 

— Мы конкретизировали пакет DIRECT-IO 
— для типа элементов TRANS-RECORD 
EXT-NAME = STRING < 1 .. 10 ) := "FY8601 DAT" ; 
begin 

for I in 1 .. 12 
loop 

CREATE < FILE => TRANS-FILE/ 

MODE => INOUT-FILE/ 

NAME => EXT-NAME/ 

FORM => ) ; 

CLOSE ( TRANS_FILE ) ; 
if EXT-NAME (6) /= '9' 
then 

EXT-NAME := EXT-NAME ( 1 ..5 ) & 

CHARACTER'SUCC< EXT_NAME<6) ) & 

EXT-NAME (? .. 10 ) / 

else 

EXT-NAME := EXT-NAME < 1 .. 4 ) & 

"10 H & EXT-NAME ( 7 .. 10 ) / j 

— Внешнее имя образуется путем 

— увеличения на единицу послед- 

— ней цифры/ стоящей перед де- 

— сятичной точкой/ если только 

— цифра не равна девяти. Обра- 

— тите внимание/ что здесь со- 

— здаются 12 внешних файлов/ 
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— но при этом используется то- 

— лько один внутренний файл, 

— который периодически закры- 

— вается и повторно (с помощью 

— процедуры CREATE) открывается. 

end if; 
end loop ; 

end CREATE_12_TRANS_FILES ; 


8.1.10. Функции, общие для всех пакетов ввода-вывода 

В Аде есть функции, общие для всех пакетов ввода-вывода. Они позволяют 
проверить состояние, в котором находится файл. Приведем их объявления, 
function NAME (FILE : FILE_TYPE) return STRING; 

Результатом выполнения этой функции является внешнее имя файла, указанного в 
качестве аргумента. 

function END _0F_FILE (FILE ; FILE_TYPE) return BOOLEAN; 

Значение данной функции будет равно TRUE, если в файле больше не осталось 
элементов (т.е. это-конец файла). Другими словами, если функция будет вызвана 
после считывания последнего элемента файла, то она выработает значение TRUE. 

function IS.OPEN (FILE : FILE_TYPE) return BOOLEAN; 

Значение этой функции будет равно TRUE, если заданный файл открыт, 
function MODE (FILE : FILE_TYPE) return FILE_MODE; 

Данная функция выдает текущий режим обмена информацией с представленным 
файлом. 

function FORM (FILE : FILEJYPE) return STRING; 

Значением этой функции будет строка, содержащая системно-зависимые параметры 
для указанного файла. 


8.2. ОБРАБОТКА ПОСЛЕДОВАТЕЛЬНЫХ ФАЙЛОВ 

Последовательные файлы можно рассматривать как последовательность элемен¬ 
тов, принадлежащих к типу ELEMENT_TYPE, который является родовым формаль¬ 
ным параметром пакета SEQUENTIALJO. Последовательный порядок расположения 
элементов в файле обусловливает аналогичный порядок обработки этих элементов. 
После открытия файла становится доступным для чтения его первый элемент. Если же 
нужно получить значение третьего элемента файла, то перед этим придется прочитать 
первые два элемента. 

Операции, требующиеся для обработки последовательного файла, реализуются 
родовым пакетом SEQUENTIALJO, спецификация которого приведена в приложении 
В. Вот объявление процедуры последовательного чтения READ: 
procedure READ (FILE : in FILEJYPE; 

ITEM : out ELEMENTJYPE); 

Эта процедура считывает из заданного файла один элемент и возвращает его значение 
через параметр ITEM. При этом предполагается, что файл открыт и режим обмена 
информацией для него -INJTLE (входной). При следующем вызове процедура считает 


14-618 
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следующий элемент. Если элемент будет последним в файле, то при последующем 
вызове функции END_OF_FILE ею будет вырабатываться значение TRUE. 

Вот объявление процедуры последовательной записи WRITE: 

procedure WRITE (FILE : in FILE_TYPE; 

ITEM : in ELEMENTTYPE); 

Эта процедура записывает в файл (после последнего элемента) значение нового 
элемента. При этом предполагается, что файл открыт и режим обмена информацией 
для Hero-OUT_FILE (выходной). 

В некоторых случаях требуется многократная обработка одного и того же файла. 
При этом можно воспользоваться процедурой RESET, объявление которой помещено 
ниже. Ее можно использовать вместо того, чтобы многократно закрывать и повторно 
открывать один и тот же файл. 

procedure RESET (FILE : in FILE_TYPE; 

MODE : in FILE_MODE); 

Эта процедура делает уже открытый файл доступным для чтения или записи, 
начиная с первого элемента файла. При закрытии и повторном открытии файла 
получится точно такой же результат. Однако процедура RESET не разрывает связи 
между внешним файлом и внутренним файлом. Поэтому ее применение экономит 
машинное время. 

Процедура 

procedure RESET (FILE : in FILE.TYPE); 

аналогична предыдущей. Однако при использовании этой версии процедуры RESET 
нельзя изменить параметр MODE. 


8.2.1. Построение последовательного файла 

Здесь представлена программа на Аде, в которой использован родовой пакет 
SEQUENTIALJO. Входные и выходные данные этой программы совпадают с данны¬ 
ми программы RECUR_PROC_GRADES из гл. 5, являющейся в свою очередь 
модификацией программы ACCESS_GRADES из гл. 3. Примеры входных данных 
показаны на рис. 3.7 и рис. 5.1. Однако в данной версии программы введено дополни¬ 
тельное ограничение: ключи к ответам отсортированы в соответствии с алфавитным 
порядком наименований предметов, а студенческие ответы отсортированы по личным 
номерам студентов. Кроме того, для строк с одинаковыми номерами студентов 
заранее выполнена сортировка по наименованиям предметов. 

Программа, вдобавок, строит последовательный файл, содержащий информацию 
о контрольных работах, и еще один последовательный файл, вмещающий ответы 
студентов. 

Программа SEQ_PROC_GRADES 


with ТЕХТ-ІО; иве ТЕХТ-ІО; 
with SEQUENTIAL -ІО; 
procedure SEQ-PROC-GRADES is 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 

type CHOICES is range 1 .. 5; 
type POSSIBLE-QUESTIONS is range 20 .. 50; 
package CHO-IO is new INTEGER_IO(CHOICES); 
use CHO-IO; 

package POSS-IO is new 

INTEGER-10 < POSSIBLE-QUESTIONS); 
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use POSS-IO; 

DNO-QUESTIONS : POSS1BLE-QUESTIONS; 
type ANSWERS is array ( 1 .. DNO-QUESTIONS ) of 
CHOICES; 

type TEST-KEY is 
record 

SUBJ : STRING!1 ..5); 

NO_QUESTIONS . POSSIBLE-QUESTIONS; 

KEY-ANSWERS . ANSWERS; 
end record; 

CURR-TEST . TEST-KEY; 

GOOD-ANSWERS : INTEGER ; 
type IN-REC is 
record; 

STUDENT-ID , STRING ( 1 .. 10); 

SUBJECT-ID , STRING ( 1 .. 5 ); 
STUDENT-ANSWERS . ANSWERS; 
end record; 

CURR-REC . IN-REC; 
type T-PAIR is 
record 

SUBJ-MAT : STRING < 1 .. 5 ); 

SCORE , NATURAL; 
end record; 

CURR-PAIR : T-PAIR; 

type SEMESTER-TESTS is array <1 .. 25 > 
of T-PAIR; 

type BIG-REC is 
record 

BIG-ST-ID , STRING < 1 .. 10 ); 

NO-TESTS : NATURAL; 

ST-TESTS = SEMESTER-TESTS; 
end record; 

— Идентификаторы/ использованные в тексте/ 

— совпадают с идентификаторами из програм- 

— мы RECUR-PROC-GRADES и имеют тот же самый 

— смысл/ за исключением того/ что здесь не 

— употребляются ссылочные переменные. 
CURR-OUT-REC . BIG-REC; 

package TEST-IO is new SEQUENTIAL_10<TEST-KEY); 
use TEST-IO; 

package STUD-IO is new SEQUENTIAL_I0(BIG-REC); 
use STUD-IO; 

— Две конкретизации пакета SEQUENTTAI_ ГО необ- 

— ходимы для того/ чтобы работать с двумя по- 

— следовательными файлами (файл с названиями 

— контрольных работ и файл со сведениями о 

— студентах). 

TEST-FILE = TEST-IO.FILE-TYPE; 

STUDENT-FILE , STUD-I0.FILE-TYPE; 
procedure SAME-STUD-PROC is 

— Эта процедура обновляет сведения/ храняци- 

— еся в структуре CURR-OUT-REC. 
begin 

GET ( CURR-REC.SUBJECT-ID); 

while not END—0F_FILE(FILE => TEST-FILE) and 
CURR-TEST.SUBJ < CURR-REC.SUBJECT-ID 
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loop 

— Поиск предмета/ по которому проводится 

— контрольная работа/ в TEST-FILE. 

READ < FILE *> TEST-FILE/ 

ITEM =•> CURR-TEST) ; 
end loop; 

if CURR-TEST.SUBJ - CURR-REC.SUBJECT-ID 
then 

— Если условие истинно/ то предмет 

— найден. В противном случае такого 

— предмета нет в списке. 

GOOD-ANSWERS .-О; 

for J in 1 .. CURR-TEST.NO-QUESTIONS 
loop 

GET < CURR-REC.STUDENT-ANSWERS(J) / 1); 
if CURR-REC STUDENT-ANSWERS(J) = 

CURR-TEST.KEY-ANSWERS(J) 
then 

GOOD-ANSWERS .« GOOD-ANSWERS + 1; 
end if; 
end loop; 

NEW-LINE; 

— Оценка за контрольные работы вычислена. 

— Теперь следует обновить сведения об ус- 
— певаемости студента. 

CURR-OUT-REC . NO-TESTS := 

CURR-OUT-REC . NO-TESTS + 4; 
CURR-PAIR . SUBJ-MAT =- CURR-REC . SUBJECT-ID; 
CURR-PAIR.SCORE GOOD-ANSWERS; 

CURR_OUT_REC.ST-TESTS(CURR-OUT-REC.NO-TESTS) 
== CURR-PAIR; 

else 

PUT<“ No such subject "); 

PUT(CURR-REC.SUBJECT-ID); 
end if; 

end SAME-STUD-PROC; 

procedure NEW-STUD-PROC is 

— Значение переменной CURR_OUT_REC теперь 

— получено. Оно отражает результаты преды- 

— дуцих контрольных работ, 
begin 

STUD-IO.WRITE(FILE => STUDENT-FILE, 

ITEM => CURR-OUT-REC); 
CURR-OUT-REC.BIG-ST-ID == 

CURR-REC.STUDENT-ID; 
CURR-OUT-REC.NO-TESTS := Ѳ; 

RESET( FILE «> TEST-FILE); 

SAME-STUD-PROC; 
end NEW-STUD-PROC; 

begin 

— Создать файл контрольных работ. 

TEST-I О. CREATE ( FILE => TEST-FILE/ 

MODE => OUT-FILE, 

— Необходимо записать в файл ключи ответов 

— для контрольных работ. 

NAME => "TEST-FILE.DAT", 

FORM => "“); 
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— Здесь используются характеристики файла/ 

— принятые по умолчанию. Файл TEST-FILE 

— открывается/ и в него можно записать 

— первое значение/ принадлежащее к типу 

— TEST-KEY. 

GET < CURR-TEST . SUBJ); 
while CURR-TEST.SUBJ /= “XXXXX" 
loop 

GET(CURR-TEST.NO-QUESTIONS/ 2); 

DNO-QUESTIONS .* CURR-TEST.NO-QUESTIONS; 
SKIP-LINE/ 

for I in 1 .. CURR-TEST.NO-QUESTIONS; 
loop 

GET(CURR-TEST.KEY-ANSWERS(I), 1); 
end loop; 

TEST-10.WRITE(FILE “> TEST-FILE/ 

ITEM «> CURR-TEST); 

OK T p I T kip ; 

GET < CURR-TEST.SUBJ); 
end loop; 

— Файл контрольных работ теперь построен. 

-г- Файл нужно читать последовательно/ поэтому 

— надо его закрыть/ а затем открыть повторно 

— с режимом IN-FILE (ВХОДНОЙ). Вместо этого 

— можно было бы воспользоваться процедурой 

— RESET . 

TEST-TO.CLOSE ( FILE => TEST-FILE ); 

TEST-IO.OPEN ( FILE => TEST-FILE/ 

MODE => IN-FILE, 

— Нужно считывать из файла ключи ответов. 

NAME => “TEST-FILE.DAT", 

FORM => ); 

— Этот файл будет устанавливаться заново в 

— исходное положение для каждого нового 

— личного номера студента с помощью проце- 

— дуры RESET. Вместо этого его можно закры- 

— вать и открывать повторно. 

STUD. ГО. CREATE ( FILE => STUDENT-FILE, 

MODE => OUT-FILE, 

— Здесь требуется записывать сведения об 

— успеваемости студентов. 

NAME => “STUDENT-FILE . DAT" ), 
FORM => ““ ); 

— Здесь используются характеристики файла, 

— принятые по умолчанию. 

SKIP-LINE; 

GET ( CURR-REC . STUDENT-ID); 

CURR—OUT-REC.BIG—ST_ID == CURR-REC.STUDENT-ID; 
CURR-OUT-REC.NO-TESTS := 0; 
while CURR-REC.STUDENT-ID /= "9999999999" 
loop 

if CURR_OUT_REC. В TG_ST_ID /= 

CURR-REC.STUDENT-ID 
then 

NEW-STUD-PROC; 

else 

SAME-STUD-PROC; 
end if; 
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GET ( CURR-REC.STUDENT-ID); 
end loop; 

— Обработаны все строки входных данных со 

— сведениями о студентах. Однако послед- 

— няя структура со сведениями об успева- 

— мости студентов еце не записана. 

NEW-STUD-PROC ; 

— Теперь структура со сведениями о последнем 

— студенте записана. 

STUD- 10. RESET ( FILE => STUDENT-FILE/ 

— Файл со сведениями о студентах устанав- 

— ливается на начало. Режим работы с фай- 

— лом изменяется так/ чтобы можно было 

— считывать данные из него. 

MODE => INFILE ); 
while not STUD-I0.END-OF-FILE 

(FILE => STUDENT-FILE) 

— Условие будет истинным/ если при 

— следующей попытке чтения значения 

— переменной из файла STUDENT-FILE 

— данные окажутся исчерпанными. 

loop 

STUD- 10. READ < STUDENT-FILE / CURR-OUT-REC); 

— Этот оператор выполняет считывание сле- 

— дующего значения из Файла STUDENT-FILE. 

PUT < CURR_0UT_REC .В IG-ST-ID); 

for I in 1 .. CURR-OUT-REC.NO-TESTS 
loop 

PUT(CURR_0UT_REC.ST-TESTS(I).SUBJ-MAT); 

PUT(CURR-OUT-REC.ST-TESTS(I).SCORE ); 

end loop; 
end loop; 

TEST-I0.CLOSE(TEST-FILE); 

TEST-I0.CLOSE(STUDENT-FILE); 
end SEQ-PROC-GRADES; 

8.2.2. Объединение двух файлов 

Далее представлен пример объединения двух внешних файлов, имеющих внешние 
имена STUDENT_FILE_1_IN.DAT и STUDENT_FILE_2_IN.DAT. Предполагается, 
что на вход поступают два отсортированных файла. В нашем случае два внешних 
файла содержат элементы типа BIG_REC и отсортированы по значениям компонент 
BIG_ST_ID этих элементов. На выходе программы объединения должен быть образо¬ 
ван третий файл, элементы которого принадлежат к тому же типу, что и элементы 
входных файлов. В этом файле будет содержаться объединенная информация, считан¬ 
ная из входных файлов. 

Сделаем следующее упрощение: если два элемента из разных файлов имеют 
идентичные значения компонент BIG_ST_ID, а учебные предметы, по которым вы¬ 
полняются контрольные работы, отличаются, то общее число этих предметов не 
превышает 25, а наименования предметов из файла STUDENT_FILE_1_IN.DAT. 
предшествуют 11 названиям предметов из файла STUDENTJFILE_2_JN.DAT. В упраж¬ 
нениях, приведенных в конце данной главы, эти ограничения будут несколько ослаб¬ 
лены. На рис. 8.1 показан пример входных файлов и выходного файла, образованного в 
результате их объединения. 


В соответствии с алфавитным порядком-Ярил», перев. 
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Файл STUD_IN_1 
CURR_REC_1_IN 

BIG_ST_ID NO_TESTS ST_TESTS 




(1) 

(2) 

(3) 

(4).. 

(25) 

1234567890 

3 

AST01 75 

CMP05 88 

ENG01 89 



2222222222 

2 

CMP01 89 

PHY03 77 




3333333333 

2 

BSN01 75 

CMP01 89 




Файл STUDJN 

2 






CURR_REC_2_IN 






BIG ST ID 

NCLTESTS 

ST TESTS 





BIG_ST_ID 

NO_TESTS 

ST TESTS 







(1) 

(2) 

(3) 

(4).. 

(25) 

1234567890 

1 

PHY01 55 





3333333333 

2 

ENG01 75 

PHY01 95 




Файл STUD_OUT_FILE 






CURRRECOUT 






BIG_ST_ID 

NO.TESTS 

ST TESTS 







(1) 

(2) 

(3) 

(4). . 

(25) 

1234567890 

4 

AST01 75 

CMP05 88 

ENG01 89 

PHY01 55 


2222222222 

2 

CMP01 89 

PHY03 77 




3333333333 

4 

BSN01 75 

CMP01 89 

ENG01 75 

PHY01 95 



Рис. 8.1. Примеры файлов для программы MERGE_PROC_GRADES. 


Программа MERGE_PROC_GRADES 

with TEXT-IO; use TEXT-IO; 
with SEQUENTIAL.10; 
procedure MERGE-PROC-GRADES is 

package INT-IO is new INTEGER_I0(INTEGER); 
use INT-IO; 
type T-PAIR is 
record 

SUBJ-MAT : STRING < 1 . . 5 ); 

SCORE : NATURAL; 
end record; 

CURR-PArR = T-PAIR; 

type SEMESTER-TESTS is array <1 .. 25 ) 
of T-PAIR; 

type BIG-REC is 
record 

BIG-ST-ID = STRING < 1 .. 10 ); 

NO-TESTS : NATURAL; 

ST-TESTS = SEMESTER-TESTS; 
end record; 

— Идентификаторы/ использованные в тексте/ 

— до сих пор совпадают с идентификаторами из 

— программы RECUR-PROC—GRADES и имеют тот же 

— смысл. 

package STUD-10 is new SEQUENTIAL_I0(BIG-REC); 
use STUD-10; 

CURR_REC_1_IN/ CURR_REC_2_IN/ 

CURR-REC-OUT = STUD-10.BIG-REC; 
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STUD_IN_1 , STUD-IN_2/ STUD-OUT-FILE = 

STUD-IO.FILE-TYPE 


procedure READ-1 is 
begin 

READ(FILE => STUD-IN-l, 

ITEM => CURR_REC_1_IN); 
end READ1; 

procedure READ-2 is 
begin 

READ(FILE => STUD_IN_2, 

ITEM => CURR_REC_2_IN); 
end READ2; 

procedure WRITE-OUT is 
begin 

WRITE(FILE => STUD-OUT-FILE, 

ITEM => CURR-REC-OUT >; 
end WRITE-OUT; 

procedure COPY-1. is 
begin 

while not STUD-I0.END-OF-FILE(STUD-IN-l) 
loop 
READ-1; 

CURR_REC_OUT == CURR_REC_1_IN; 

WRITE-OUT; 
end loop; 

PUT(" First input file was last processed”) 
end COPY-1; 


procedure COPY-2 is 
begin 

while not STUD-I0.END-OF-FILE(STUD-IN_2) 
loop 
READ-2; 

CURR_REC_OUT := CURR_REC_2_IN; 

WRITE-OUT; 
end loop; 

PUT("Second input file was last processed") 
end COPY-2; 

begin 

STUD-IO.OPEN(FILE => STUD-IN-l, 

MODE => IN-FILE, 

NAME => "STUDENT_FILE_1_IN.DAT", 
FORM => "" ); 

STUD_I0.OPEN(FILE => STUD-IN-2, 

MODE => IN-FILE, 

NAME => "STUDENT_FILE_2_IN.DAT”, 
FORM => "" ); 

STUD-IO.CREATE(FILE => STUD-OUT-FILE, 

MODE => OUT-FILE, 

NAME => "STUD-MERGED-FILE.DAT", 
FORM => "" ); 

if not STUD_IO.END_0F_FILE(STUD_IN_1) and 
not STUD-I0.END_OF_FILE(STUD-IN_2) 
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then 
READ-1 ; 

READ-2; 

loop 

if CURR_REC_1_IN.BIG-ST-ID < 

CURR_REC_2_IN.BIG_ST_ID 
then 

— Запись данных из первого файла. 
CURR_REC_OUT := CURR_REC_1_IN; 

WRITE-OUT; 

if STUD.I0.END_OF_FILE(STUD-I N_1) 
then 

— Записан последний элемент из пер- 

— вого входного файла. Теперь запи- 

— шеи текуций элемент из второго 

— входного файла. В противном слу- 

— ае этот элемент будет отброшен в 

— процедуре C0PY-2. Слияние файлов 

— заканчивается после окончания 
J ~ выполнения C0PY-2. 

CURR-REC—OUT := CURR-REC-2-IN; 

WRITE-OUT; 

COPY-2; 
exit; 
end if; 

READ-1; 

elsif CURR-REC—1_IN.BIG-ST-ID > 

CURR-REC—2_IN. В IG_ST_ID 

then 

— Теперь выполняется запись данных 

— из второго файла. 

CURR-REC-OUT == CURR-REC-2- I N ; 

WRITE-OUT ; 

if STUD-1 0 .END-OF-FILE < STUD-1N_2) 
then 

— Записан последний элемент из вто- 

— рого входного файла. Теперь запи- 

— шем текуций элемент из первого 

— входного файла. В противном слу- 

— чае этот элемент будет отброшен в 

— процедуре C0PY-2. Слияние файлов 

— заканчивается после окончания 

— выполнения C0PY-1 . 

CURR-REC-OUT == CURR-REC-1-IN; 

WRITE-OUT; 

COPY-1 ; 
exit; 
end if; 

READ-2; 

else 

— Иля равенства здесь складываются количес- 

— тва контрольных работы у студентов. 
CURR-REC-OUT := CURR-REC-1-N; 

CURR-REC-OUT . NO-TESTS := 

CURR-REC-OUT.NO-TESTS + 
CURR_REC_2_IN.NO-TESTS; 
CURR-REC-OUT.ST-TESTS 
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(CURR_REC_1_IN.NO-TESTS +1 
CURR-REC-OUT.NO-TESTS) 

CURR-REC-2-IN.ST-TESTS 

(1 .. CURR_REC_2—IN.NO-TESTS); 

— Это - присваивание вырезки. 

WRITE-OUT; 

if STUD-I О .END-OF-FILE(STUD-IN-2) 
then 
COPY-1; 
exit; 
end if; 

— После того как достигнут конец, одного 
— файла/ копируем другой файл, 
if STUD-I О. END-OF-FILE(STUD-IN_1) 
then 
COPY-2; 
exit; 
end if; 

READ-1; 

READ-2; 
end if; 

— Здесь об'единяются два непустых файла. 

— По крайней мере один файл обработан. 

— Теперь скопируем оставшийся, 
end loop; 

е1 sif STUD-I0.END_OF_FILE(STUD-IN_1) 
then 
COPY-2; 
else 

— Если управление попадает сюда/ то 
— файл STUD-IN-2 должен быть пустым. 

C0PY-1 ; 
end if; 

PUT (" The merge is done "); 

STUD-I0.CLOSE(STUD-IN_1); 

STUD-I0.CLOSE(STUD-IN-2); 

STUD-I0.CLOSE(STUD-OUT-FILE); 
end MERGE-PROC-GRADES; 


8.3. ОБРАБОТКА ФАЙЛОВ ПРЯМОГО ДОСТУПА 
8.3.1. Особенности файлов прямого доступа 

Файл прямого доступа определяется как последовательность элементов, при¬ 
надлежащих к типу ELEMENT_TYPE, который является родовым формальным 
параметром пакета DIRECT_IO. (В этом данный пакет не отличается от пакета 
SEQUENTIAL_IO.) Однако в отличие от элементов последовательных файлов, обра¬ 
ботка которых реализована пакетом SEQUENTIAL_IO, элементы, входящие в файл 
прямого доступа, можно обрабатывать в произвольном порядке, т. е. вне зависимости 
от их относительного положения в файле. На практике для чтения или записи элемента 
в файл прямого доступа необходимо указать, помимо прочих фактических параметров, 
относительное положение этого значения в файле, которое называется индексом 
элемента файла. 

Для каждого открытого файла прямого доступа имеется так называемое текущее 
значение индекса. Текущее значение индекса-это значение индекса, которое будет 




Пакеты ввода-вывода в языке Ада 


219 


использоваться при чтении или записи следующего элемента файла, если только 
программист не изменил значение индекса явно. 

Процедура SET INDEX, как и ряд других процедур, позволяет управлять относи¬ 
тельным положением считываемого или записываемого элемента. Функция INDEX 
дает возможность определить текущее положение файла. Объявления этих подпро¬ 
грамм, как показано в приложении В, имеют вид 
procedure SETJNDEX (FILE : FILE TYPE; 

TO : POSITIVE_COUNT); 

POSITIVE_COUNT является подтипом типа COUNT, диапазон значений которого от 
1 до системно-зависимого значения COUNT'LAST. Индекс файла устанавливается 
равным значению фактического параметра, соответствующего формальному пара¬ 
метру ТО. 

function INDEX (FILE : FILEJYPE) return POSITIVE_COUNT; 

Эта функция вырабатывает значение, равное текущему индексу файла. 

Подпрограммы SETJNDEX и INDEX можно использовать при любых режимах 
обмена информацией (INJTLE, OUT_FILE или INOUTJTLE) с файлом прямого 
доступа. Непосредственно после открытия файла текущее значение индекса устана¬ 
вливается равным 1. 

Процедуры READ и WRITE, реализующие операции чтения и записи для файлов 
прямого доступа, имеют следующие объявления: 

procedure READ ( FILE = in FILE-TYPE ; 

ITEM : out ELEMENT-TYPE ; 

FROM : in POSITIVE-COUNT )i 
procedure READ < FILE = in FILE-TYPE ; 

ITEM : out ELEMENT-TYPE ) ; 

В первом варианте процедуры READ элемент типа ELEMENT_TYPE считывается из 
файла. Относительное положение элемента задается фактическим параметром, со¬ 
ответствующим формальному параметру FROM. Считанное значение будет передано 
фактическому параметру, соответствующему формальному параметру ITEM. Во 
втором варианте относительное положение считываемого элемента определяется 
текущим значением индекса. После выполнения операции ввода процедурой READ 
текущее значение индекса увеличивается на 1. 

При возникновении ошибок могут быть возбуждены различные исключительные 
ситуации. Например, если предпринимается попытка чтения из файла, который не 
открыт или имеет режим обмена информацией OUT FILE, то возникнут исключитель¬ 
ные ситуации. Более подробно они будут рассмотрены в гл. 1L 

Объявления процедур вывода WRITE из пакета DIRECTJO являются «зеркаль¬ 
ным отражением» объявлений процедур READ: 

procedure WRITE ( FILE = in FILE-TYPE ; 

ITEM = out ELEMENT-TYPE ; 

TO : in POSITIVE-COUNT ) ; 
procedure WRITE ( FILE : in FILE-TYPE ; 

ITEM : out ELEMENT-TYPE ) ; 

В первом варианте будет записано в файл значение фактического параметра, со¬ 
ответствующего формальному параметру ITEM. Относительное положение элемента в 
файле задается фактическим параметром, соответствующим формальному параметру 
ТО. Во втором варианте относительное положение элемента определяется текущим 
значением индекса. После завершения выполнения вывода значение индекса увеличива- 
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ется на единицу. Исключительные ситуации могут возникнуть, если файл не открыт, 
если режим обмена информацией с файлом -IN Л LE и в других случаях. 

Файлы прямого доступа имеют размер, который определяется наибольшим 
значением индекса, использованным при чтении данных из файла или при записи в 
него. Текущее значение размера файла вырабатывает функция SIZE, имеющая объявле¬ 
ние: 

function SIZE (FILE : FILE„TYPE) return COUNT; 

Если текущее значение индекса превысит размер файла прямого доступа, то функция 
END_OF_FILE даст значение TRUE. В противном случае она даст значение FALSE. 
Объявление этой функции: 

function END_OF_FILE (FILE : FILEJYPE) return BOOLEAN; 

Пакет DIRECT JO имеет в своем составе версии процедур RESET, напоминающие 
одноименные процедуры из пакета SEQUENTIALJO. Их смысл и объявления в этих 
пакетах совпадают, за исключением того, что параметр MODE может дополнительно 
принимать значение INOUTJFILE для файлов прямого доступа. 


8.3.2. Программа, в которой используется 
файл прямого доступа 

Проиллюстрируем применение родового пакета DIRECTJO на примере простой 
программы, работающей с файлами. Эта программа отслеживает банковские операции 
для маклера, работающего с иностранной валютой. Файл прямого доступа, внешнее 
имя которого BAN K_MASTER.DAT, содержит информацию о банках. Предполагает¬ 
ся, что файл уже создан и содержит сведения приблизительно о 150 банках. 

Этот файл прямого доступа можно обновлять путем добавления данных о новом 
банке или путем изменения имеющейся информации о банке, однако удаление сведений 
о банке не допускается. Кроме того, разрешается наводить справки о некоторых 
банках. Во входных данных программы, поступающих, например, с терминала, 
задаются вид действия (первым символом строки данных) и, далее, необходимая для 
выполнения этого действия информация. В последней строке данных ставится код 
действия ‘Z’. 

Входные данные имеют следующий формат: 

Позиции Данные 

1 Код действия IN_CODE, где ‘А’ означает добавление сведений, ‘С-их 

изменение, Т- получение справки, a ‘Z’- конец работы 
2-21 Название банка 

22-70 Прочая информация: телефон, адрес, данные о служащих банка, с которы¬ 

ми следует поддерживать контакты и т. д. 

Файл прямого доступа содержит элементы типа BANCLREC. Тип BANKJIEC- 
это комбинированный тип с вариантной частью. Вариантная часть охватывает три 
вида структур. Структуры первого вида содержат глобальную информацию, такую, 
как текущее количество банков в файле и максимально допустимое для файла число 
банков. Структуры второго вида несут сведения о конкретном банке. И наконец, 
структуры третьего вида содержат сводные данные, т. е. сведения о номерах сделок с 
конкретным банком. Сведения о банках отсортированы в алфавитном порядке по 
названиям банков. 

В пакете BANKJIESOURCES, текст которого приведен ниже, помещаются 
необходимые ресурсы: объявления, подпрограммы, инициализирующие действия. 
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with DIRECT_IO; 
package BANK-RESOURCES is 
type BANK-INFO is 
record 

BANK-NAME : STRING(1 .. 20); 

OTHER-INFO : STRING!1 . . 49); 
end record; 
type IN—REC is 
record 

IN-CODE : CHARACTER; 

— Здесь должны появляться символы 
— А, С, I и Z. 

IN—DATA = BANK-INFO; 
end record; 

type REC-KIND is (GLOB-FILE-DATA,MASTER-DATA / 
POSTING-DATA); 
type TRANS-NUMBER is 
record 

MO-PART : INTEGER range 1 .. 12; 

DAY-PART : INTEGER range 1 .. 31; 

NO-PART = NATURAL; 
end record; 

type POST-INFO is array (1 .. 12) 
of TRANS-NUMBER; 

type BANK-REC(M-TYPE : REC-KIND == 

MASTER-DATA) is 

record 

case M-TYPE is 

when GLOB_FILE_DATA => 

NO-BANKS : NATURAL; 

— Эта компонент», позволяет подсчитать 

— обцее число банков в файле. 

MAX-NO : NATURAL; 

— Значение этой переменной опре- 

— деляет предельно допустимое 

— количество банков. 

— Ценные о банковских операциях 

— можно записывать с превышением 

— этого предела, 
when MASTER-DATA => 

MAST-HEAD = BANK-INFO; 

FIRST-TRAN : NATURAL; 

— Эта переменная содержит значение 

— индекса первой переменной 

— POSTING-LINE для банка (она равна 

— нули»/ если у данного банка нет опера- 

— ций). 

LAST-TRAN = NATURAL; 

— Эта переменная содержит значение 

— индекса для последней переменной 
— POSTING-LINE для банка. Она 

— равна нули»/ если банковские 

— операции отсутствуют. 

LAST—P0S : NATURAL range 1 .. 12; 

— Эта переменная содержит значение 

— последней позиции в последней 

— переменной POSTING-LINE для 

— конкретного банка. 
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when POSTING-DATA => 

POSTING-LINE : POST-INFO/ 

NXT-PST—LINE : NATURAL; 

— Переменная POSTING-LINE содержит 

— сведения максимально о 12 

— банковских операциях, 
end case; 


BANKFILE 

Первый элемент файла принадлежит к типу BANK REC (GLOB FILE_DATA): 
NO_BANKS MAX NO 
3 200 


Элементы файла со второго по четвертый относятся к типу BANK _REC (MASTER _DATA): 


MAST_HEAD 


FIRST_TRAN LAST TRAN LAST POS 


BANK.NAME 
CHASE MANHATTAN 
CHEMICAL BANK 
MARINE MIDLAND 


OTHER_INFO 
YYYY . . YYY 203 
XXXX . . XXX 202 
ZZZZ . . ZZZ 201 


203 2 

204 3 

201 1 


Элементы файла с номерами 201-204 имеют тип 
POSTING.LINE 

(1) (2) . .(12) 

0723005 0723008 

0723001 0723003 . . . 0724002 

0723002 

0724005 0724006 0724007 


BANK.REC (POSTING DATA): 


NXT_PST_LINE 

0 

204 

0 


Рис. 8.2. Примеры регистрационных данных в файле BANK_FILE. 


Структуры разных видов, имеющие различные значения дискриминанта 
REC_KIND, показаны на рис. 8.2. Продолжим текст пакета: 

package BANK-IO is new DIRECT-IO < BANK-REC ) ; 
use BANK-IO ; 

BANK-FILE : BANK_IO.FILE-TYPE ; 

GL0BAL_N0_0F_BANKS : POSITIVE-COUNT ; 

procedure RETRIEVE ( FORM_BANK_NAME : in out STRING ; 

FORM-POS = out COUNT ; 

FORM-FOUND : out BOOLEAN ) ; 

end BANK-RESOURCES ; 

Далее запишем текст тела пакета BANK RESOURCES: 

package body BANK-RESOURCES is 
LOCAL-BANK-REC : BANK-REC; 

— При конкретизации пакета ввода-вывода 

— для файла с прямой или последовательной 

— организацией можно использовать 

— только лишь один тип данных. Однако 

— если применить комбинированный тип с 

— вариантной частью/ то будет можно ис- 
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— пользовать несколько видов структур 

— данных. Для файла BANK—FILE следует 

— учитывать размеры структур с целью 

— экономии памяти. Как правило/ следует 

— добиваться того/ чтобы вариант структуры/ 

— имеющий наибольший размер/ использовался 

— в файле наиболее часто. 

— Структура LOCAI _ BANK-REC с дискриминантом/ 

— равным POSTING-DATA/ будет/ вероятно/ 

— занимать максимальную часть об'ема файла 

— BANK-FILE/ и поэтому количество компонент у 

— типа POST-INFO следует подбирать таким обра- 

— зом/ чтобы компонента, структуры POSTING-LINE 

— имела.наибольший размер. Предопределенный 

— атрибут Ады SIZE (РАЗМЕР) дает минимальный 

— размер (в битах)/ требуемый для размещения 

— любого возможного об'екта заданного типа. 

— Пример запроса этого атрибута: 

— BANK-REC ' SIZE . Размер элемента файла будет 

— зависеть от конкретной версии языка Ада. 

— Он примерно равен значению/ вырабатываемому 

— атрибутом SIZE, 
procedure RETRIEVE ( 

FORM_BANK_NAME .• in out STRING/ 
FORM-POS : out COUNT; 

FORM-FOUND = out BOOLEAN ) is 

— Эта процедура осуществляет поиск такого 

— элемента в файле BANK-FILE/ название бан- 

— ка для которого совпадает с названием 

— банка в строке FORM-BANK-NAME. Если наз- 

— вание будет найдено/ то переменная 

— FORM-FOUND получит значение TRUE/ а в 

— противном случае эта переменная будет 

— иметь значение FALSE. Метод поиска/ 

— применяемый в данной процедуре/ назы- 

— вается двоичным поиском. 

LEFT-LIM : COUNT := 2; 

MIDDLE-NDX/ RIGHT-LIM : COUNT i 

begin 

RIGHT-LIM := GLOBAL_NO_OF_BANKS; 

FORM-FOUND == FALSE; 
loop 

MIDDLE-NDX == (LEFT-LIM + RIGHT-LIM) /2; 

READ(FILE => BANK-FILE/ 

_ ITEM => LOCAL-BANK-REC/ 

FROM => MIDDLE-NDX); 
if LOCAL-BANK-REC.MAST-HEAD.BANK-NAME = 
FORM_BANK_NAME 
then 

FORM-FOUND : = TRUE; 

FORM-POS := MIDDLE-NDX; 
exit; 

eisif LOCAL_BANK_REC.MAST-HEAD.BANK-NAME < 
FORM-BANK-NAME 

then 

LEFT-LIM : = MIDDLE-NDX; 
else 

RIGHT-LIM := MIDDLE-NDX; 
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end if; 

if LEFT-LIM >= RIGHT_LIM 
then 

FORM_POS := RIGHT_LIM; 
exit; 
end if; 
end loop; 
end RETRIEVE; 

— Далее располагается текст/ с помощью 

— которого выполняется инициализация пере- 

— менных пакета, 
begin 

OPEN(FILE => BANK_FILE/ 

MODE => INOUT.FILE/ 

— Требуются и чтение/ и запись. 

NAME => "BANK-MASTER.DAT"/ 

FORM => ““ >; 

— Для некоторых компиляторов Ады при со- 

— здании файла (если тип элементов 

— файла - неуточненный как в данном случае) 

— необходимо указывать в качестве части фак- 

— тического параметра FORM максимальный размер 

— структуры для элементов файла. 

READ(FILE => BANK-FILE/ 

ITEM => LOCAL-BANK-REC/ 

FROM => 1); 

— Прочитать первый элемент файла BANK-FILE/ 

— чтобы определить количество банков. 

GLOBA! _ NO-OF-BANKS == POSITIVE-COUNT ( 

LOCAL_BANK_REC . NO-BANKS); 
end BANK-RESOURCES; 


Теперь представим текст самой программы. 

Программа BANKJV1A1NT 

with ТЕХТ-ІО; use TEXT-IO; 

— Если пакет BANK-RESOURCES оттранслирован/ 

— то Фразы/ располагающиеся ниже/ делают 

— его непосредственно видимым. 

with BANK-RESOURCES; use BANK-RESOURCES; 

procedure BANK-MAINT is 
CURR—IN-REC : IN-REC; 

ACT-POS = BANK-10.COUNT; 

ACT-FOUND : BOOLEAN; 

CURR-BANK-REC/ SAVE-BANK-REC : BANK-REC; 
begin 

— Для случаев/ когда переменная 
-- CURR-IN-REC.IN-CODE равна 'А' или 'C', 

— лучше было бы использовать некоторые 

— дополнительные программы из пакета 

— BANK-RESOURCES. Эта ситуация рассматри- 

— вается в упр.З в конце данной главы, 
if not BANK-10.IS-OPEN (BANK-FILE ); 

— Заметьте/ что и в пакете ТЕХТ-ІО/ и 
— в пакете BANK- 10 есть функция 
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— IS-OPEN и процедура OPEN, 
then 

BANK-I О. OPEN ( 

FILE => BANK-FILE/ 

MODE => BANK-10.INOUT-FILE/ 

NAME => “BANK-MASTER.DAT"/ 

FORM => "" ) > 

end if i 

GET( CURR-IN-REC.IN-CODE ); 
while CURR-IN-REC.IN-CODE /= 'Z' 
loop 

GET < CURR-1N-REC.IN-DATA.BANK-NAME); 

GET(CURR-IN_REC.IN-DATA.OTHER-INFO) / 
case CURR-IN-REC.IN-CODE is 
when 'I' => 

RETRIEVE < CURR-1N-REC.IN-DATA.BANK-NAME / 
АСТ -POS/ ACT-FOUND ); 
if ACT-FOUND 
then 

PUT<" Bank found "); 
else 

PUT(“ Bank not found "); 
end if; 
when 'A' => 

— Это - неэффективный способ обновления 

— банковского файла. Файл/ однако/ об- 

— новляется очень редко. Здесь этот спо- 

— соб дает возможность поупражняться в 

— использовании ряда подпрограмм из пакета 
— DIRECT— 10. 

for I in 2 .. GLOBAL-NO-OF-BANKS 
loop 

READ(FILE => BANK-FILE/ 

ITEM => CURR-BANK-REC/ 

FROM => I ) / 
exit when 

CURR-IN-REC.IN-DATA.BANK-NAME < 

CURR-BANK-REC.MAST-HEAD.BANK-INFO.BANK-NAME; 
end 1oop; 

— После считывания данных индекс 

— увеличивается на единицу. 

ACT-P0S == COUNT ( INDEX ( BANK-FILE )) —1; 

SAVE—BANK-REC := (MASTER-DATA/ 

CURR-IN_REC / 0/ © 1); 

— Это - присваивание позиционного 

— агрегата. 

for I in POSITIVE-COUNT(ACT—POS) .. 

GLOBAI_NO-OF-BANKS + 1 

— Этот цикл перемещает структуры 

— после вставки, 
loop 

WRITE( FILE => BANK-FILE/ 

ITEM => SAVE-BANK-REC/ 

TO “> I > / 

SAVE-BANK-REC CURR-BANK-REC; 

READ( FILE => BANK-FILE/ 

ITEM => CURR-BANK-REC ); 


15-618 
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end loop; 

— Обновить количество банков/ 

— записанное в первом элементе 
— Файла. 

READ(BANK-FILE/ CURR_BANK_REC / 1); 
CURR_BANK_REC.NO-BANKS = = 

POSITIVE(GLOBAI—NO-OF-BANKS) + 1; 
WRITE( BANK-FILE/ CURR_BANK_REC / 1); 
when ' C' => 

RETR1EVE(CURR-IN-REC.IN-DATA.BANK-NAME / 
АСТ -POS/ ACT-FOUND); 
if ACT-FOUND 
then 

READ<FILE => BANK-FILE/ 

ITEM => CURR-BANK-REC/ 

FROM => POSITIVE—COUNT(ACT-POS)); 
CURR-BANK-REC.MAST-HEAD = = 

CURR-IN-REC.IN-DATA; 
WRITE(FILE => BANK-FILE/ 

ITEM => CURR_BANK_REC/ 

TO => ACT-POS ); 

else 

PUT<" No such bank “); 
end if; 

when 'Z' => exit; 

when others => null; 
end case; 

SKIP—LINE; 

GET < CURR-TN-REC.TN-CODE); 
end loop; 

BANK-I0.CLOSE(BANK-FILE); 
end BANK-MAINT; 


8.3.3. Преимущества файлов прямого доступа 

В данном разделе на примере двух программ будут проиллюстрированы преиму¬ 
щества использования файлов прямого доступа вместо последовательных файлов при 
произвольном порядке обращения к элементам файла и обработке этих элементов. 
Здесь предполагается, что доступен файл BANK_FILE из предыдущего подраздела. 

Первая программа регистрирует сделки маклера, работающего с иностранной 
валютой. Сведения о каждой сделке содержатся в отдельной входной строке, имеющей 
формат: 


1-20 

21-40 

41-43 

44-46 

47-55 

56-61 

62-67 


BUYER (покупатель) - название банка из файла BANK_FILE 
SELLER (продавец)-название банка из файла BANK_FILE 
CURR_BOUGHT- символы, обозначающие покупаемую валюту, напри¬ 
мер USS (доллары США), DM (марки), SF (швейцарские франки) 
CURR_SOLD- символы, обозначающие продаваемую валюту 
X_RATE-Kypc обмена 
VALUE^DATE дата заключения сделки 

TRADE_DATE-flaTa, когда деньги переходят от одного владельца к 
другому. Обычно это следующий рабочий день, расположенный после 
даты VALUE_DATE 


Признаком конца входных данных служит строка, в которой поле BUYER имеет 
значение «12345678901234567890». Маклеру причитается комиссионное вознаграждение 
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в размере 25 долл, на каждый миллион долларов сделки. Сумма вознаграждения 
подсчитывается, но не регистрируется. 

Каждая входная строка проходит проверку на корректность содержащихся в ней 
данных, т. е. проверяются даты и названия банков. Если строка содержит правильные 
сведения о сделке, то она помещается в соответствующий файл с данными о сделках. В 
противном случае выдается предупреждающее сообщение. Если данные о сделке 
корректны, то генерируется полный номер сделки. Он состоит из номера месяца, дня и 
номера сделки за этот день. Полный номер сделки используется для определения файла 
и индекса элемента этого файла, содержащего сведения о данной сделке. Перед тем как 
представить текст программы, приведем спецификацию пакета с необходимыми 
объявлениями. 

with DIRECT -ІО/ 

package TRANSACTION-RESOURCES is 
type TRANS-HEADER is 
record 

DAY-TRANS-NO = NATURAL; 

FIRST-TRANS = NATURAL; 

LAST-TRANS = NATURAL; 
end record; 

type MONTH-HEADER is array <1 .. 31 ) 
of TRANS-HEADER; 
type TRANS_FILE_HEADER is 
record 

YEAR-N-MONTH , STRING<1 .. 4); 

TRANS-STATUS = MONTH-HEADER; 
end record; 
type SHORT-DATE is 
record 

SHORT-YY : INTGER range 0 

SHORT-MM : INTGER range 1 

SHORT-DD = INTGER range 1 

end record; 
type IN-TRANS is 
record 

BUYER = STRING<1 .. 20); 

SELLER = STRING(1 .. 20); 

CURR-BOUGHT = STRING(1 .. 

CURR-SOLD : STRING<1 .. 

X-RATE : FLOAT; 

VALUE-DATE : SHORT-DATE; 

TRADE-DATE : SHORT-DATE; 
end record; 
type TRANS-INFO is 
record 

TRANS-NO : NATURAL; 

TRANS-BODY : IN-TRANS; 

TRANS-NEXT = NATURAL; 
end record; 

type TRANS-ELEM-KIND is (ТОР -LINE/ REC-LINE); 
type TRANS-REC (REC-KIND = TRANS-ELEM-KIND := 

REC-LINE) is 

record 

case REC-KIND is 
when TOP-LINE => 

HEADER-LINE = TRANS—FILE-HEADER; 

— Может оказаться/ что размер строки 


. . 99; 
. . 12 ; 
. . 31; 


3 ); 

3 ); 
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— заголовка окажется слишком большим. 

— В упражнениях в конце данной главы 

— рассматривается другое построение 

— структур, 
when REC-LINE => 

TR_LINE : TRANS-INFO; 
end case; 
end record; 

Пример файла TRANS_FILE и некоторых его элементов дан на рис. 8.3. Продолжим 
текст пакета: 

package TRANS- 10 is new DIRECT_I0<TRANS-REC); 
use TRANS—IO; 

TRANS_FILE : TRANS-10.FILE-TYPE; 

— Предполагается/ что создаются Файлы со сведе- 

— ниями о сделках (возможно/ в программе из 

— разд .7. 1)/ даже если размер этих файлов равен 

— нулю. 

end TRANSACTION-RESOURCES; 

В следующей программе употребляется версия процедуры PUT, входящая в 
конкретизированный пакет INTJO. Объявление этой процедуры: 
procedure PUT (ТО : out STRING; ITEM : NUM; 

BASE : in NUMBER-BASE : = 

DEFAULT_BASE); 

Эта процедура помещает значение фактического параметра, соответствующего фор¬ 
мальному параметру ITEM, в строковую переменную, соответствующую формально¬ 
му параметру ТО (а не в файл с режимом обмена информацией OUT-FILE). 
Процедура GET из пакета INTJO имеет объявление: 

procedure GET (FROM : in STRING; 

ITEM : out NUM; 

LAST : out NATURAL); 

В противоположность соответствующей процедуре PUT данная процедура GET 
выполняет чтение целого значения из строки, соответствующей формальному пара¬ 
метру FROM. Значение, которое получит переменная, соответствующая формальному 

Первый элемент файла TRANS_FILE принадлежит к типу 
TRANS-REC (TOP-LINE): 

TOP_LINE 

YEAR-N-MONTH TRANS_STATUS 

(1) (2) - (23) . . (31) 

8607 01 002 045 02 008 075 23 021 089 000 

Все остальные элементы файла относятся к типу 

TRANS-REC (REC_LINE). Например, 2- и 45-й элементы могут выглядеть так: 

TRANS-NO TRANS-BODY TRANS-NEXT 

001 CHEMICAL BANK ... 003 

034 CHASE ... 000 

Рис. 8.3. Примеры регистрационных записей в файле TRANS-FILE. 
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параметру LAST,- это значение индекса 1 ’ последнего прочитанного символа. Данная 
разновидность процедуры GET будет использована во второй программе настоящего 
раздела. 

Предположим теперь, что пакет TRANSACTION_RESOURCES уже оттранслиро¬ 
ван. Тогда текст первой программы будет таким: 

Программа CURR_TRANSACTION_PROC 
with TEXT-10; use TEXT-IO; 
with CHECK_DATES_ALT; use CHECK-OATES-ALT; 
with BANK-RESOURCES; use BANK-RESOURCES; 
with TRANSACTION-RESOURCES; 
use TRANSACTION_RESOURCES; 
with LEGAL-HOLIDAYS; use LEGAL-HOLIDAYS; 

— Пакет LEGAL-HOLIDAYS был определен в гл.?. 

— В нем используется пакет CHECK-DATES-ALT . 

— Предполагается/ что эти пакеты уже оттран- 
— слированы. 

procedure CURR-TRANSACTION-PROC is 
CURR-IN-TRANS : IN-TRANS; 

CURR-TRANS-REC/ SAVE-TRANS-REC , TRANS-REC; 
package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 

package FLT-IO is new FLOAT-10(FLOAT); 
use FLT-IO; 

BANK-POS : POSITIVE-COUNT; 

BANK-FOUND, DATE-VALID . BOOLEAN; 

CURR-DATE = DATE; 


procedure MOVE_SHRT_DATE_TO-REG-DATE 

<FORM-SH-DATE : in SHORT-DATE; 
FORM-LG-DATE : out DATE) is 

begin 

FORM—LG_DATE.YEAR-NO =- FORM-SH—DATE.SHORT-YY; 
FORM_LG_DATE.MONTH-NO FORM-SH—DATE.SHORT-MM; 

FORM_LG_DATE.DAY-NO ; = FORM-SH-DATE.SHORT-DD; 
end MOVE_SHRT_DATE_TO_REG_DATE; 


procedure INSERT—REC<FORM-IN-TRANS : IN-TRANS) is 
EXT-NAME = STRINGd .. 1Ѳ) ; 

YY-STR, MM-STR = STRINGd .. 2); 

LOC-l, LOC-OTHER , TRANS-REC; 

LOCAL-MONTH-HEADER : MONTH-HEADER 
(1 .. 31 => (Ѳ, 1, 1) ); 

WRK-LAST-TR : NATURAL; 

WRK-CURR-TR : NATURAL; 
begin 

— Вначале определим имя внешнего файла и откроем 

— этот файл. 

PUT ( YY-STR , FORM-IN-TRANS.VALUE-DATE.SHORT-YY); 


— Этот оператор преобразовывает целые значения 

— в строковые. 

— Далее заменим пробел, стояций перед числом на 


if YY-STR <1) = ' ' 


То есть позиции в строке - Прим, перев. 
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then 

YY_STR(1) ,= 'O'; 
end if; 

PUT(MM-STR,FORM-IN-TRANS.VALUE .-DATE.SHORT-MM); 
if M_STR<1) * ' ' 
then 

MM-STR{1) .= 'O'; 
end if; 

EXT-NAME .= "FY" & YY-STR Sc MM-STR & ".DAT"; 
if TRANS-I О .IS-OPEN <TRANS-FILE) 
then 

TRANS—10.CLOSE(TRANS-FILE); 
end if; 

TRANS-10.OPEN ( FILE «> TRANS-FILE/ 

MODE -> INOUT-FILE, 

NAME -> EXT-NAME, 

FORM => ““); 

if TRANS—10.SIZE (TRANS-FILE) < 1 

— Это условие будет истинно, если в файл 

— ничего не записано, 
then 

— Запишем первый элемент файла. 

L0C-1 (TOP-LINE, 

(YY-STR Sc MM-STR, LOCAL-MONTH-HEADER) ); 
TRANS— I О . MR I ТЕ (TRANS-FILE, LOC-l, 1); 
end if; 

TRANS-10.READ(TRANS-FILE, LOC-l, 1); 

— В тексте программы, расположенном ниже, 

— целесообразно использовать переименование 

— процедур (см. упр.6 в конце главы). 

WRK—LAST TR •з 

LOC-l . HEADER-LINE . TRANS-STATUS.LAST-TRANS 
(FORM-IN-TRANS.VALUE-DATE.SHORT-DD); 
if WRK-LAST—TR /- 1 
then 

— Для данного дня месяца есть еце сделки, 

— последняя из них ставится в конец. 

TRANS- 10. READ ( TRANS-FILE, LOC-OTHER, 

WRK—LAST-TR); 

— Обновить следуюцую запись. 

LOC-OTHER.TR-LINE.TRANS-NEXT 

POSITIVE(TRANS-I О .SIZE(TRANS-FILE))+1; 
TRANS-10.WRITE ( TRANS-FILE, LOC-OTHER, 

WRK_LAST_TR); 

else 

— Инициализировать первую сделку дня. 

LOC-l . HEADER-LINE . TRANS-STATUS.FIRST-TRANS 

(FORM-IN-TRANS.VALUE-DATE.SHORT-DD) .= 

POSITIVE(TRANS-I0.SIZE(TRANS-FILE))+1; 
end if; 

WRK—CURR-TR 

LOC-l.HEADER-LINE.TRANS-STATUS.DAY-TRANS-NO 
(FORM-IN-TRANS.VALUE-DATE.SH0RT_DD) + 1; 
LOC-l.HEADER-LINE.TRANS-STATUS.DAY-TRANS-NO 
(FORM-IN-TRANS.VALUE-DATE.SHORT-DD) . «= 

WRK—CURR-TR; 

WRK-LAST-TR .= 
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POSITIVE(TRANS-IO.SIZE(TRANS-FILE) )+l; 

LOC-l. HEADER-LINE. TRANS-STATUS. LAST-TRANS 
< FORM-IN-TRANS.VALUE-DATE.SHORT -СЮ) = = 
WRK-LAST-TR; 

— Затем обновляется первый элемент файла. 

TRANS-IO . WRITEtTRANS-FILE,LOC-l /1); 

LOC-OTHER 

(REC-LINE, (WRK-CURR-TR, FORM-IN-TRANS, О )); 

— Далее запишем данные о новой сделке. 

TRANS- 10. HR IТЕ < TRANS-FILE , LOC-OTHER , WRK—LAST-TR ); 
TRANS-IO.CLOSE(TRANS-FILE) ; 
end INSERT—REC; 

begin 

— Заметьте, что при обработке пакета BANK-RESOURCES 

— файл BANK-FILE будет открыт (обработка пакета 

— включает выполнение его тела). 

СЕТ( CURR-IN-TRANS . BUYER ) і 

while CURR-IN-TRANS.BUYER /- "123456789Ѳ1234567890" 
loop 

RETRIEVE(CURR-IN-TRANS.BUYER,BANK-POS,BANK-FOUND); 


GET(CURR—IN-TRANS.SELLER); 

RETRIEVE(CURR—IN—TRANS.SELLER, BANK-POS, 
BANK-FOUND); 

end if; 
if BANK-FOUND 
then 

— Если переменная BANK-FOUND имеет значение 

— TRUE, то покупатель и продавец имеют пра- 

— вильные обозначения. 

СЕТ( CURR—IN—TRANS . CURR-BOUGHT ); 

GET(CURR-IN-TRANS.CURR-SOLD); 

GET(CURR.IN_TRANS.X-RATE); 

Get(CURR-IN-TRANS.VALUE-DATE.SHORT-YY); 

GET(CURR-IN-TRANS.VALUE-DATE.SHORT-MM )> 

GET(CURR-IN-TRANS.VALUE-DATE.SHORT-DO); 

GET(CURR-IN_TRANS.TRADE-DATE.SHORT-YY); 

GET (CURR-1 N-TRANS. TRADE-DATE. SHORT-MM) i 
GET(CURR-IN_TRANS.TRADE-DA ТЕ .SHORT.DD>; 
MOVE_SHRT_DATE_TO_REG_DATE( 

CURR-IN-TRANS.VALUE-DATE, CURR-DATE); 
FILL-IN-DATE(CURR-DATE, DATE-VALID); 
if DATE-VALID 
then 

DATE-VALID not IS-LEGAl—HOLIDAYS 
(CURR-DATE); 

end if; 
if DATE-VALID 
then 

MOVE-SHRT-DATE—TO—REG-DATE 

(CURR-IN-TRANS.TRADE-DATE,CURR-DATE); 

FILI_IN—DATE(CURR—DATE, DATE-VALID); 

if DATE-VALID 
then 

DATE-VALID :» 


not 



232 


Глава 8 


IS_LEGAI_HOLIDAYS(CURR—DATE); 

end if; 

end if; 

end if; 

SKIP-LINE; 

if DATE-VALID and BANK-FOUND 

then 

— В строке представлены верные данные о 

— сделке/ и эта строка будет записана в 

— файл с данными о сделках. 

INSERT _ REC ( CURR—IN-TRANS ); 

else 

PUT ( н Invalid transaction "); 

end if; 

GET(CURR_1N-TRANS BUYER); 
end loop; 

BANK-I0.CLOSE(BANK-FILE); 
end CURR—TRANSACTION-PROC; 

Вторая программа, текст которой представлен ниже, осуществляет в файле 
BANK_FILE регистрацию сделок, сведения о которых содержатся в разных файлах, 
несущих информацию о сделках. Таким образом, будут зарегистрированы сделки для 
каждого банка. Предполагается, что входные данные состоят из одной строки, 
содержащей номер года (он должен быть равен 1986) и месяца (две цифры). Считается, 
что доступны файл BANKJTLE и файлы, несущие информацию о сделках (начиная с 
1986 г.). 


Программа POST1NG PROC 

with ТЕХТ-ІО; use TEXT-IO; 
with TRANSACTION-RESOURCES; 
use TRANSACTION-RESOURCES; 
with BANK-RESOURCES; use BANK-RfeSOURCES; 

— Предполагается/ что эти пакеты уже от- 

— транслированы, 
procedure POSTING-PROC is 

package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 

CURR-TRANS—REC-l / CURR-TRANS-REC-OTHER : 

TRANS-REC; 

YY-ANO-MM = STRING!1 ..4); 

MM-ONLY : STRING!1 .. 2); 

EXT-NAME : STRING!1 .8); 

WORK-POSITIVE : NATURAL; 

CURR-TRANS-HEADER = TRANS-HEADER; 

CURR_TRANS_INDEX : POSITIVE-INDEX; 

procedure POST-INDIV-BANK!ANY-TRANS : TRANS-NUMBER; 

ANY-BANK : STRING) is 
BK-POS/ TR-POS, SAVE-TR-POS = COUNT; 

BK-FOUND : BOOLEAN; 

ANY-BANK-REC = BANK-REC; 

ANY-POST-REC = BANK-REC; 

WRK—POST—INFO : POST-INFO; 
begin 

RETRIEVE!ANY-BANK / ВК -POS/ BK-FOUND); 
if BK-FOUND 
then 
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BANK- IО .READ(BANK-FILE, ANY_BANK-REC / BK-POS); 

. if ANY-BANK—REC.FIRST-TRAN = Ѳ 

— Это условие будет истинным/ если для дан- 

— ного конкретного банка сделки пока еце 

— не регистрировались, 
then 

if BANK-IO.SIZE(BANK-FILE) <= 
GLOBAL_NO_OF_BANKS 

— Данное условие будет истинным/ если ни 

— для каких банков сделки не регистри- 

— ровались. 
then 

TR-POS := GLOBAL-NO OF-BANKS +1/ 
else 

TR-POS := BANK-IO.SIZE(BANK-FILE) + 1/ 
end if; 

ANY-BANK-REC.FIRST-TRAN := POSITIVE(TR-POS); 
ANY-BANK-REC.LAST-TRAN := POSITIVE(TR-POS); 
ANY-BANK-REC.LAST-POS >1; 

WRK—POST-INFO (ANY-TRANS/ 

2 .. 12 «> (1/1,1) ); 

ANY-POST-REC == 

(POSTING-DATA/ WRK-POST-INFO/ 0); 

— Инициализировать регистрационную строку с 

— информацией о сделке, 
else 

if ANY_BANK_REC . LAST-POS = 12 

— Если это условие истинно/ то строка с ре- 
— гистрационными данными заполнена до конца, 
then 

TR-POS : = SIZE(BANK-FILE) + 1; 

BANK-I0.READ(BANK-FILE / ANY-POST-REC / 
ANY-BANK-REC.LAST-TRAN); 
ANY-POST-REC.NXT-PST-LINE := 

P0SITIVE(TR-POS); 

BANK-IO.WRITE(BANK_FILE/ ANY-POST-REC / 
ANY-BANK-REC.LAST-TRAN); 
ANY-BANK-REC.LAST-TRAN = = 

P0SITIVE(TR-POS); 

ANY-BANK-REC.LAST-POS := 1; 

WRK_P0ST_INF0 == (ANY-TRANS/ 

2 .. 12 => (1/1, 1>>; 

ANY-POST-REC .« 

( POSTING-DATA, WRK-POST-INFO, Ѳ ) i 

else 

— Место есть. 

TR-POS := ANY-BANK-REC.LAST-TRAN, 

BANK-I0.READ(BANK-FILE, ANY-POST-REC, 
ANY-BANK-REC.LAST-TRAN); 
ANY_BANK_REC.LAST-POS == 

ANY_BANK_REC.LAST-POS + 1; 
ANY-POST-REC.POSTING-LINE 

( ANY-BANK-REC.LAST-POS ) := 
ANY-TRANS; 

end if; 
end if; 

BANK-I0.WRI ТЕ (BANK-FILE,ANY-BANK-REC,BK-POS); 
BANK-I0.WRI ТЕ (BANK-FILE,ANY-POST-REC,TR-POS); 
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else 

PUT<" Bank not found "); 

PUT < ANY-BANK ); 
and if; 

— Заметьте/ что сделка может быть варегистри- 

— рована в ведомости только линь одного бан- 

— ка/ если обовначение партнера данного банка 

end POSt”iNDIv!bANK; 

procedure POST-BNK(FORM-TRANS-REC = TRANS-REC; 

FORM-DAY , NATURAL) is 
LOCAJ—FULI—TRANS-NO . TRANS-NUMBER; 

— Данная процедура осуществляет подготовку 

— к записи регистрационной информации для 

— обоих банков, 
begin 

LOCAL_FULL_TRANS_NO . DAY-PART :* FORM-DAY; 

LOCAJ—FULI—TRANS-NO.NO-PART ,« 

FORM-TRANS-REC.TR-LINE.TRANS-NO; 

GET(FROM -> ММ -ONLY/ ITEM -> 

LOCAJ_FULI_TRANS-NO. MO-PART, 

LAST -> WORK-POSITIVE >; 

POST-INDIV-BANK (LOCAI_FULI_TRANS-NO, 

FORM-TRANS-REC.TR-LINE.TRANS_BODY.BUYER); 

POST-INDIV-BANK (LOCAI_FULI_TRANS-NO / 

FORM-TRANS-REC.TR_LINE.TRANS-BODY.SELLER); 
end POST-BNK; 

begin 

GET (YY-AND-MM); 

MM-ONLY YY-AND-W4 ( 3 . . 4 ); 
if YY-AND-MM < "&6Ѳ1 “ or YY-AND-MM > "8612" 
then 

PUT (“ Bad date "); 
else 

EXT-NAME .= “FY" Sc YY-AND-MM Sc “.DAT"; 
if not TRANS-IO.IS_OPEN(TRANS-FILE) 
then 

TRANS-IO.OPEN(FILE -> TRANS-FILE/ 

MODE -> INOUT-FILE/ 

NAME -> EXT-NAME/ 

FORM -> ““); 

TRANS-10.READ(TRANS-FILE/ CURR-TRANS-REC_1 / 1); 
end if; 

for I in 1 .. 31 
loop 

CURR-TRANS-HEADER <■ 

CURR—TRANS-REC—1.HEADER-LINE.TRANS-STATUS(I); 
CURR-TRANS-INDEX 

CURR-TRANS-HEADER.FIRST-TRANS; 
if CLffiR-TRANS-INDEX /« 1 
then 

TRANS-I0.READ(TRANS-FILE / CURR-TRANS-REC-OTHER / 
CURR_TRANS_INDEX); 

while CURR_TRANS_REC_OTHER.TR-LINE.TRANS_NEXT 
/“ 0 
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loop 

POST-BNK < CURR-TRANS-REC-OTHER , 1); 

CURR_TRANS_INDEX := 

CURR_TRANS_REC_OTHER.TR-LINE.TRANS-NEXT; 

TRANS-10. RE AD (TRANS-FILE / 

CURR-TRANS-REC-OTHER, CURR-TRANS-INDEX); 
end loop; 

POST-BNK(CURR_TRANS_REC_OTHER, 1); 
end it; 
end loop; 
end if; 

І f TRANS-I0.IS-OPEN(TRANS-FILE) 
then 

TRANS-I0.CLOSE(TRANS-FILE); 
end if; 

if TRANS-I0.IS-OPEN(BANK-F1LE) 
then 

TRANS-10.CLOSE(BANK-FILE); 
end if; 

snd POSTING-PROC; 

Следует ожидать, что в конкретных реализациях Ады будут иметься и другие 
пакеты, предназначенные для разнообразной обработки файлов. Например, можно 
будет встретить пакеты, осуществляющие работу с индексно-последовательными 
файлами, или пакеты, позволяющие выполнять ввод-вывод значений для «смеси» 
типов 1) . 


8.4. ОБРАБОТКА ФАЙЛОВ С ПОМОЩЬЮ ПАКЕТА 
ТЕХТ_ІО 

Пакет TEXTJO содержит средства, предназначенные для выполнения ввода-выво¬ 
да в удобном для человека виде. В предыдущих главах уже были описаны и 
использовались многие из средств пакета ТЕХТ_Ю. В данном разделе будут описаны 
некоторые из оставшихся подпрограмм пакета ТЕХТ_ЕО, в особенности средства 
выдачи листингов отчетов. 

После того как ТЕХТ_ІО файл будет открыт (или создан), становится возможным 
с помощью процедуры GET считывать данные из входных файлов. Запись данных в 
выходные файлы выполняется при помощи процедуры PUT. 

В состав пакета TEXTJO, как было показано в разд. 7.5, входит несколько других 
родовых пакетов. Если потребуется считывать и записывать значения целого, пере¬ 
числяемого или плавающего типов, то эти родовые пакеты следует соответствующим 
образом конкретизировать. Каждый из данных родовых пакетов содержит свои версии 
процедур GET и PUT, примеры употребления которых были даны во многих 
программах из предыдущих глав. 

Некоторые подпрограммы из пакета ТЕХТ_ІО имеют несколько разновидностей. 
В частности, для некоторых из подпрограмм могут существовать варианты с наличием 
формального параметра FILE и с отсутствием этого параметра. Если параметр FILE 
не задается при вызове подпрограммы, то используется принимаемый по умолчанию 
входной или выходной файл. Для каждой выполняющейся программы на Аде есть 
принимаемый по умолчанию входной и выходной файл. После начала выполнения 
программы такими подразумеваемыми файлами становятся принятые в данной опера¬ 
ционной системе стандартный входной и стандартный выходной файлы. Стандартный 


11 То есть файл будет содержать значения разных типов, а не одного конкретного 
Tima..- Прим, перев. 
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входной файл открывается в режиме обмена информацией IN_FILE, а стандартный 
выходной файл-в режиме OUT_FILE. Эти положения имели силу для каждой из 
предыдущих программ. 

Пакет TEXT JO также содержит процедуры SETJNPUT и SET_OUTPUT. Они 
дают возможность установить в качестве файлов, выбираемых в данный момент 
времени по умолчанию, любые другие (открытые) текстовые файлы. Объявления этих 
процедур: 

procedure SETJNPUT (FILE : in FILEJTYPE); 
procedure SET.OUTPUT (FILE : in FILEJTYPE); 

Имена файлов-стандартного входного, стандартного выходного, текущего вход¬ 
ного и текущего выходного-можно определить путем вызова следующих функций: 
function STANDARDJNPUT return FILEJTYPE; 
function STANDARD.OUTPUT return FILEJTYPE; 
function CURRENTJNPUT return FILEJTYPE; 
function CURRENTJOUTPUT return FILEJTYPE; 

Стандартный входной и стандартный выходной файлы могут относиться к одному 
и тому же физическому устройству, например, к терминалу. Имена этих файлов 
системно-зависимы. Типичными именами могут быть SYSSOUTPUT илИ SYSSINPUT. 

Выходные ТЕХТ_ІО-файлы рассматриваются как последовательности символов, 
образующих строки. Позиции символов в строке определяю!^ как номера колонок; 
строки объединяются в страницы. Конец строки помечается специальным признаком 
конца строки, а конец страницы-признаками конца строки и конца страницы. В конце 
файла располагаются признаки конца строки, конца страницы и конца файла. Пользо¬ 
ватель не может воздействовать на эти признаки, фактическое их построение зависит от 
конкретной реализации языка Ада. 

Размеры строк и страниц устанавливаются с помощью процедур SET_XINE_LENGTH и 
SET_PAGE_LENGTH. Объявления этих процедур: 
procedure SET_LINE_LENGTH (FILE : in FILEJTYPE; 

TO : in COUNT); 

procedure SET_LINE_LENGTH (TO : in COUNT); 

Эта версия относится к выходному файлу, принимаемому по умолчанию, 
procedure SET_PAGE_LENGTH (FILE : in FILEJTYPE); 

TO : in COUNT 

procedure SET_PAGE_LENGTH (TO : in COUNT); 

Здесь COUNT -целый тип, охватывающий значения от нуля до определяемого реали¬ 
зацией целого числа. 

Функции LINE_LENGTH и PAGE_LENGTH дают возможность узнать макси¬ 
мальный размер строки или страницы заданного выходного текстового файла. Объяв¬ 
ления этих функций даны в приложении В. 

В пакете ТЕХТ_ІО есть и ряд других подпрограмм, которые можно применить при 
работе с номерами колонок, строк и страниц. Помимо процедур NEW_LINE и 
SKIP_LINE, которые использовались в предыдущих программах, можно восполь¬ 
зоваться и рядом других подпрограмм. Приведем их объявления: 
function END_OF_LINE (FILE : in FILEJTYPE) return BOOLEAN; 
function END_OF_LINE return BOOLEAN; 

Эта функция даст значение TRUE, если в следующей позиции во входном файле будет 
обнаружен признак конца строки или конца файла. 

function END_OF_PAGE (FLE : in FILEJTYPE) return BOOLEAN; 
function END_OF_PAGE return BOOLEAN; 



Пакеты ввода-вывода в языке Ада 237 

Эта функция вырабатывает значение TRUE, если в следующей позиции обнаруживает¬ 
ся признак конца строки и конца страницы или же признак конца файла. 

function END_OF_FILE (FILE : in FILEJTYPE) return BOOLEAN; 
function END_OF_FILE return BOOLEAN; 

Данная функция даст значение TRUE, если, начиная со следующей позиции входного 
файла, будет располагаться последовательность признаков конца строки, конца стра¬ 
ницы и конца файла или же только признак конца файла. 

Текущие номера колонок, строк и страниц можно узнать с помощью следующих 
функций: 

function COL (FILE : in FILEJTYPE) return POSITIVE.COUNT; 
function COL return POSITIVE COUNT; 

Тип POSITIVE_COUNT является подтипом типа COUNT с положительными значе¬ 
ниями. 

function LINE (FILE : in FILEJTYPE) return POSITIVE.COUNT; 
function LINE return POSITIVE_COUNT; 

Эта функция дает значение текущего номера строки в текущей странице. Система 
отслеживает и номер текущей страницы, значение которого можно получить при 
вызове функций: 

function PAGE (FILE : in FILEJTYPE) return POSITIVE.COUNT; 
function PAGE return POSITIVE_COUNT; 

С помощью следующих процедур можно управлять расположением колонок, строк и 
страниц: 

procedure NEW_PAGE (FILE : in FILEJTYPE); 
procedure NEW_PAGE; 

Эти процедуры записывают признак конца строки (если текущая строка еще не 
закончилась) и признак конца страницы. Предполагается, что файл-выходной. В 
процедурах 

procedure SKIP.PAGE (FILE : in FILEJTYPE); 
procedure SKIP PAGE; 

предполагается, что файл - входной. Они считывают и пропускают все символы вплоть 
до признака конца страницы. Затем текущий номер страницы увеличивается на 1, а 
текущие номера колонки и строки устанавливаются равными 1. Процедуры: 

procedure SET COL (FILE : in FILEJTYPE; 

TO : in POSITIVE^COUNT); 
procedure SET COL (TO : in POSITIVE.COUNT); 

можно использовать как со входными, так и с выходными файлами. В качестве 
фактического параметра, согласующегося с формальным параметром ТО, следует 
указывать новый номер колонки. Процедуры 
procedure SETJJNE (FILE : in FILEJTYPE; 

TO : in POSITIVE.COUNT); 
procedure SET_LINE (TO ; in POSITIVE_COUNT); 

можно употреблять с файлами, режимы обмена информацией с которыми - IN_FILE 
или OUT_FILE. Новым номером строки будет значение, указываемое в качестве 
фактического параметра, соответствующего формальному параметру ТО. 

При некорректном применении данных подпрограмм могут возникать исключи¬ 
тельные ситуации, которые поясняются в гл. 11. 



238 


Глава 8 


Monthly Statement for Bank i XXXXXXXXXXXXXXXXXXXX 
Month of YYMM 

BUYER SELLER ВОТ SOLD CROSS_RATE V_DATE T_DATE 

XXXXXXXX YYYYYYYYYY US* DM 0.30123 MMDD MMDD 

ZZZZZZZZ YYYYYYYYYY US* SF 0.35422 MMDD MMDD 


Рис. 8.4. Пример формата отчета. 


В следующей программе употребляются некоторые из введенных здесь под¬ 
программ, входящих в пакет TEXTJO. Программа составляет месячные отчеты для 
нескольких заданных банков путем выделения необходимой информации из файлов 
BANK_FILE и TRANS_FILE (см. предыдущий раздел). Формат отчета представлен на 
рис. 8.4. 

Программа REPORT_GEN 

with TEXT -ІО/ use TEXT-10; 
with TRANSACTION-RESOURCES; 
use TRANSACTION-RESOURCES; 
with BANK-RESOURCES; use BANK-RESOURCES; 

— Предполагается/ что эти пакеты уже от- 
— транслированы, 
procedure REPORT-GEN is 

package INT-IO is new INTEGER_I0(INTEGER); 
use INT-IO; 

package FLT-IO is new FLOAT-IO<FLOAT); 
use FLT-IO; 

DESIRED-BANK = STRINGd .. 20); 

REPORT-FILE = TEXT-IO.FILE-TYPE; 

YY_AND_MM : STRINGd .. 4); 

MM-ONLY : STRINGd .. 2); 

EXT-NAME : STRINGd . . 8); 

WORK-POSITIVE : NATURAL; 

ВК -POS/ TR-POS/ SAVE-TR-POS = POSITIVE-COUNT; 

BK-FOUND/ TRANS-FILE-FOUND = BOOLEAN; 

ANY-BANK-REC : BANK-REC; 

ANY-POST-REC : BANK-REC; 
procedure WRITE-HEADING is 
begin 

— Запись в файл REPORT-FILE начинается с 
— третьей строки. 

SET-LINE <Т0 => 3); 

SET-COL (ТО => 55); 

PUT (PAGE); 

SET-LINE (ТО => 5); 

SET-COL (ТО => 5); 

PUT ("Monthly Statements for Bank "); 

PUT (DESIRED-BANK); 

SET-LINE (TO => 7); 

SET-COL (TO => 20); 

PUT (" Month of ">; 

PUT (YY-AND-MM); 

SET-LINE (TO => 10); 

PUT (" BUYER "); 

SET-COL (TO => 21); 

PUT (" SELLER “); 
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SET-COL (ТО => 41 " ); 

PUT (•■ ВОТ "); 

PUT С SOLD "); 

PUT (- CROSS-RATE “); 

PUT <“ V-DATE H ); 

PUT <•• T-DATE ">; 

SET-LINE (TO => 13); 
end WRITE-HEADING; 

procedure PRINT-TRAN (FORM-INFO : TRANS-INFO); 

— Эта процедура печатает строку с информацией 

— о сделке, 
begin 

if LINE > 58 
then 

WRITE-HEADING; 
end if; 

PUT(FORM-INFO.BUYER); 

PUT(FORM-INFO.SELLER); 

SET-COL (TO *> 43); 

PUT(FORM-INFO.CURR-BOUGHT); 

SET-COL (TO => 49); 

PUT(FORM-INFO.CURR-SOLD); 

PUT(FORM—INFO.X—RATE / 11/ 2); 

SET-COL(62); 

PUT(FORM-INFO.VALUE-DATE.SHORT-DD / 2); 

SET-COL(65); 

PUT(FORM-INFO.TRADE-DATE.SHORT-DD / 2); 
end PRINT-TRAN; 

procedure GET—N—WRITE_FULI_TRAN 

(FORM-TRANS = TRANS-NUMBER) is 

— Данная процедура будет последовательно про- 

— сматривать сделки заданного дня и отобра- 

— зит информацию о них в файле REPORT-FILE. 

— В упр.9 в конце этой главы предлагается 

— воспользоваться более эффективным способом 

— поиска необходимой информации. 

LOCAI — TRANS-REC-l / LOCAL _ TRANS-REC-OTHER : 

TRANS REC; 

WRK—LAST-TR : POSITIVE-COUNT; 

WRK-CURR-TR : NATURAL; 
begin 

TRANS-10.READ(TRANS-FILE / LOCAI_TRANS_REC_1 / 

1 ); 

WRK-LAST-TR ,« 

LOCAI_TRANS_REC_1.HEADER-LINE.TRANS-STATUS. 

LAST-TRANS ( FORM-TRANS.DAY-PART ); 

WRK_CURR_TR : = 

LOCAI_TRANS_REC_1.HEADER-LINE.TRANS-STATUS. 

FIRST-TRANS ( FORM-TRANS.DAY-PART ); 

TRANS-10.READ < TRANS-FILE / LOCAI_TRANS-REC-OTHER / 

WRK_CURR_TR); 

loop 

if LOCAI_TRANS-REC-OTHER.REG—LINE.TRAN-NO = 

FORM-TRANS.NO-PART 
then 

PRINT-TRAN(LOCAL-TRANS-REC-OTHER.REG-LINE); 
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end і f ; 

exit when WRK-CURR-TR = WRK-LAST-TR; 

WRK_CURR_TR : = LOCAl_TRANS-REC-OTHER.REG_LINE. 

TRAN_NEXT; 
end loop; 

end GET-N-WRITE-FULI_TRAN; 

— Начало главной программы, 
begin 

— Первоначально текущим файлом ввода служит стан- 

— дартный файл ввода. 

— Считать название требуемого банка. 

GET < DESIRED-BANK ); 

RETRIEVE(DESIRED-BANK/ ВК -POS/ BK-FOUND); 
if not BK-FOUND 
then 

PUT<" Bank not in Bank File "); 
end if; 

— Прочитать номер месяца в формате YYMM. 

GET (YY_AND_MM); 

MM-ONLY : = YY-AND-MM < 3 .. 4 ); 
if YY-AND-MM < "8601" or YY-AND-MM > “8612" 
then 

PUT (" Bad date ">; 

TRANS-FILE-FOUND == FALSE; 
else 

EXT-NAME .= "FY" & YY_AND_MM & ".DAT"; 
if not IS-OPENtTRANS-FILE) 
then 

TRANS.10.OPEN < FILE => TRANS-FILE, 

MODE => INOUT-FILE, 

NAME => EXT-NAME / 

FORM => 

TRANS-10.READ(TRANS-FILE/ CURR_TRANS_REC_1, 1); 
TRANS-FILE-FOUND == TRUE; 
end if; 
end if; 

if TRANS-FILE-FOUND and BK-FOUND 
then 

— Создать файл/ в который будет записываться 

— отчет. 

ТЕХТ-ТО. CREATE(FILE => REPORT-FILE/ 

MODE => OUT-FILE / 

NAME => "BANK—REPORT.DAT" / 

FORM => "“); 

— Заменить файл/ принимаемый по умолчанию/ со 

— стандартного файла на файл REPORT-FILE. 
SET-OUTPUT ( FILE => REPORT-FILE ); 

— Установить требуемые размеры строки и 

— страницы. 

SET-LINE-LENGTH (ТО => 72 ); 

— Предыдущий оператор эквивалентен оператору 
— SET_LINE_LENGTH (FILE=>REP0RT_FILE/T0=>72) ; 

— поскольку теперь файл/ выбираемый по 

— умолчанию,- это файл REPORT-FILE. 
SET-PAGE-LENGTH ( ТО => 65 ); 

— Если сделки были уже зарегистрированы при 

— помощи процедуры P0STING-PR0C/ то порядок 
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— расположения в файле для таких сделок 

— будет соответствовать их порядку в 

— файле TRANS-FILE. В упр. 8 в конце данной 

— главы предлагается более общий подход к 

— регистрации сделок в файле BANK-FILE. 

BANK-1 0. READ < BANK-FILE / ANY_BANK-REC, BK-POS); 
if ANY-BANK-REC.FIRST—TRAN = Ѳ 

— Это условие будет истинным/ если для 

— данного конкретного банка сделки пока 

— еще не регистрировались, 
then 

PUT(" No transaction for this Bank “); 
else 

— Начать с элемента/ содержацего сведения 

— о сделках/ зарегистрированных в самом 

— начале. 

CURR-POS == 1/ 

TR-POS := ANY-BANK-REC . FIRST-TRAN ; 

BANK- 10. READ ( BANK-FILE/ ANY-POST-REC, 
TR-POS >; 

loop 

— Правильный ли номер у сделки ? 
if ANY_POST_REC.POSTING-LINE 
(CURR-POS ).MO-PART = 

CHARACTER'VAL(MM-ONLY) - 
CHARACTER'VAL ('0') 
then 


GET-N-WRITE-FULL-TRAN 

(ANY-POST-REC.POSTING_LINE(CURR-POS));■ 
end if; 

— Следующее выражение будет истинным 

— только после окончания обработки по- 

— следней сделки данного банка. 

exit when CURR-POS = ANY-BANK—REC.LAST—POS 
and TR-POS = ANY_BANK_REC.LAST-TRAN; 
CURR-POS == CURR_P0S + 1; 
if CURR_P0S > 12 
then 

— Должна быть считана следующая регист- 

— рационная запись 
CURR-POS : = 1; 

TR-POS := ANY_POST_REC . NXT-PST—LINE; 
BANK-10.READ ( BANK-FILE/ 

ANY_POST_REC/ TR-POS ); 


end if; 
end loop; 
end if; 

TEXT-10.CLOSE (REPORT-FI LE); 
end if; 

if TRANS-I0.IS-OPEN(TRANS-FILE) 
then 

TRANS-I0.CLOSE(TRANS-FILE); 
end if; 

if TRANS-I0.IS-OPEN(BANK-FILE) 


then 

TRANS-I0.CLOSE(BANK-FILE); 
end if; 

end REPORT_GEN; 


6-618 
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УПРАЖНЕНИЯ 

1. Модифицируйте программу SEQ_PROC_GRADES из разд. 8.2.1 таким образом, чтобы она 
смогла обрабатывать переменное количество контрольных работ. При этом потребуется внести 
изменения в объявление комбинированного типа BIG_REC. Кроме того, положим, что названия 
предметов, по которым проводится контрольная работа, для одного и того же студента в каждом 
из двух входных файлов не обязательно расположены по алфавиту. 

2. Модифицируйте программу SEQ_PROC_GRADES из разд. 8.2.1 таким образом, чтобы 
одно и то же значение строки BIG_ST_ID могло появляться в каждом входном файле более 
одного раза. Предполагается, что оба файла отсортированы. 

3. Перепишите пакет BANK_RESOURCES из разд. 8.3.2, добавив в него подпрограммы, 
выполняющие добавление или изменение элементов типа BANK_REC. Перепишите программу 
BANK_MAINT с использованием нового пакета. 

4. Возможно, что будет более эффективным иметь несколько элементов типа 
TRANS_FILE_HEADER в файле TRANS_FILE, используемом программой CURR „TRANSACTION^ 
PROC из разд. 8.3.3. Перепишите программу CURR_TRANSACTION_PROC и пакет 
TRANSACTION_RESOURCES в предположении, что первые четыре элемента файла принад¬ 
лежат к типу TRANS_FILE_RECORD. При этом каждый из первых четырех элементов файла 
содержит информацию примерно о восьми днях (точнее, о 8, 8, 8 и 7 днях). 

5. Используя пакет TRANSACTION_RESOURCES из разд. 8.3.3, напишите программу, 
которая будет помечать выбранные сделки в файле TRANS_FILE как некорректные. 

6. Перепишите процедуру INSERT_REC из программы CURR TRANSACT10N_PR0C с 
использованием объявлений переименования так, чтобы глубина вложенности составных имен не 
превышала двух уровней. 

7. Перепишите процедуру POST_INDIV_BANK из программы POSTING_PROC (см. разд. 
8.3.3) так, чтобы она регистрировала сделку только в тех случаях, когда оба названия банков 
содержатся в файле TRANS_FILE. 

8. Программа POSTING_PROC из разд. 8.3.3 регистрирует сделки без записи относительного, 
положения сведений о сделке в файле TRANS_FILE. Внесите необходимые изменения в пакет 
BANK_RESOURCES и программу POSTING_PROC с тем, чтобы в информации о зареги¬ 
стрированных сделках содержались данные об относительном положении сведений в файле 
TRANS_FILE. 

9. В предположении, что модификации, предусмотренные в упр. 8, сделаны, перепишите 
программу REPORT_GEN из разд. 8.4, в которой теперь должны использоваться данные об 
относительном положении сведений о сделках в файле TRANS_FILE. 

10. Напишите программу, которая выдает справку о тех банках, которые произвели более 20 
сделок в месяце номер 07 (июль). Она должна генерировать текстовый файл с необходимыми 
заголовками. 



Глава 9 


Структура программы 
и вопросы компиляции 


9.1. СЕГМЕНТЫ КОМПИЛЯЦИИ И ПРОЦЕСС 

компиляции 

9ЛЛ. Сегменты компиляции 

Программы на Аде составляются из одного или более сегментов компиляции, 
хранящихся в библиотеке программ. Существуют два вида сегментов компиляции, 
которые имеют форму: 

описание контекста Библиотечные сегменты 

описание контекста Вторичные сегменты 

В свою очередь библиотечный сегмент -это одна из следующих программных единиц: 

- объявление или тело подпрограммы, 

- объявление пакета, 

- родовое объявление или его конкретизация. 

Вторичным сегментом может быть: 

- тело подпрограммы, 

- тело пакета, 

- подсегмент. 

Мы уже пользовались каждым из перечисленных здесь сегментов компиляции, кроме 
подсегментов, которые будут описаны далее в настоящей главе. 

Описание контекста указывает те библиотечные сегменты, имена которых не¬ 
обходимы внутри сегмента компиляции. Оно должно предшествовать библиотечным 
или вторичным сегментам. Пример описания контекста-это часто используемая 
строка: 

with TEXTJO; use TEXT JO; 

которая делает доступными подпрограммы (такие, как GET или PUT), необходимые 
для чтения и записи символов, строк и т.п. В следующем разделе даны примеры и 
приведены подробности описания контекста для сегментов компиляции. 

Беглый взгляд на списки библиотечных и вторичных сегментов показывает, что в 
обоих списках имеются тела подпрограмм. Для тел подпрограмм справедлива следую¬ 
щая интерпретация: если библиотека программ уже содержит библиотечный сегмент, 
имеющий то же самое имя, что и тело, то это тело считается вторичным сегментом. В 
противном случае тело подпрограммы является одновременно и библиотечным, и 
вторичным сегментом. 

9.1.2. Главные программы 

В языке Ада не определяется, что Составляет главную программу, т. е. программу, 
которая первой запускается средствами системного окружения, находящимися за 
пределами средств Ады. Точное определение требований к главной программе на 
языке Ада зависит от конкретной реализации языка. Однако в любой реализации 
процедура без формальных параметров может быть главной программой, а каждая 
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Рис. 9.1 . Процесс компиляции. 


Листинги 1 сообщения 
и т.д. 


Обновленная библиотека 
[если компиляция завер¬ 
шится успешно) 


главная программа должна быть подпрограммой, являющейся библиотечным сегмен¬ 
том. Ясно, что все программы на Аде, представленные ранее, могут быть названы 
главными программами, поскольку это-процедуры без формальных параметров. 


9.1.3. Процесс компиляции 

Сегменты компиляции, образующие программу на Аде, могут быть скомпилиро¬ 
ваны различными способами. Наиболее очевидный путь-представить для компиляции 
все сегменты в одном шаге. Но возможны и многие другие пути при раздельной 
компиляции сегментов. Вообще говоря, сегменты компиляции могут быть обработаны 
транслятором в любом порядке при условии выполнения определенных правил, 
необходимых для правильной генерации кода. Эти правила в основном выводятся 
путем последовательного применения правил видимости. 

В процессе компиляции на вход транслятора подаются некоторые сегменты ком¬ 
пиляции и модули из библиотечного файла. Если компиляция завершается успешно, то 
библиотечный файл обновляется. Это означает, что новая (только что оттранслирован¬ 
ная) версия сегмента компиляции заменяет старые версии этого сегмента (если они 
имелись). Обобщенный процесс компиляции иллюстрирует рис. 9.1. 


9.1.4. Описание контекста 

Мы упоминали ранее, что описание контекста для сегмента компиляции не¬ 
обходимо в целях подключения к нему нужных библиотечных сегментов. Описание 
контекста выполняется с помощью фразы подключения контекста with: 

with простое имя_библиотечного_сегмента; 

В дополнение к этому присутствует фраза использования use, имеющая вид: 
with простое_имя_библиотечного сегмента; 
use простоелмя библиотечноголакета; 

В этой форме use нет ошибки. Таким образом, во фразе with разрешено указывать 
простое имя любого библиотечного сегмента (здесь могут быть имена подпрограмм, 
пакетов и родовых конкретизаций). Но во фразе use допускается указывать только 
имена пакетов. Заметьте также, что каждая фраза with создает зависимость между 
сегментами компиляции. 

Пусть, например, имеется такой сегмент компиляции: 

with PACK. А; 
procedure PROC_B is 
begin 
null; 

end PROC.B; 




Структура программы и вопросы компиляции 


245 


Тогда РАСКОЛ должен быть библиотечным сегментом и PROCLB зависит от PACK_j\. 
Этот вид зависимости важен для установления допустимого порядка следования 
сегментов компиляции, а именно: каждый библиотечный сегмент, от которого зависит 
данный сегмент компиляции, должен быть оттранслирован перед началом трансляции 
этого сегмента компиляции. В нашем примере РАСКОЛ должен быть оттранслирован 
перед тем, как может начаться трансляция PROCLB, потому что идентификаторы, 
принадлежащие РАСК_А, видимы в PROCLB. Это правило является частным случаем 
более общего правила видимости: если идентификатор видим в программном сегменте, 
но не объявлен в нем, то этот идентификатор должен быть частью уже оттранслиро- 
ванногб библиотечного сегмента. 

В фразе with могут быть заданы имена нескольких библиотечных сегментов. В 
этом случае они должны быть разделены запятыми. 

Всякий раз, когда какой-либо сегмент компиляции Ады передается на трансляцию, 
предполагается, что часть его контекста составляет пакет STANDARD (приведенный в 
приложении В). По этой причине типы INTEGER, FLOAT, BOOLEAN, CHARACTER, 
STRING и функции, выполняющие операции с ними, непосредственно видимы в любой 
программе на Аде. Пакет STANDARD содержит также пакет ASCII (состоящий из 
объявлений констант для управляющих символов и прочих специальных символов) и 
объявления некоторых предопределенных исключительных ситуаций (которые будут 
рассмотрены в гл. 11). 

9.2. ПОДСЕГМЕНТЫ И ЗАГЛУШКИ 

В начале главы в списке возможных вторичных сегментов были указаны и 
подсегменты. Подсегменты применяются при раздельной трансляции тел програм¬ 
мных сегментов, объявленных внутри другого сегмента компиляции. Объявление 
программного сегмента внутри другого сегмента компиляции выполняется с помощью 
заглушки, которая может иметь три вида: 

спецификация подпрограммы is serapate 

package body простое_имя_пакета is separate; 

task body простое_имя„задачи is separate ; 

Последняя форма заглушки (для тела задачи) будет рассмотрена в следующей главе. 

Заглушка занимает место соответствующего тела (т. е. фактического текста тела), 
которое задается в подсегменте. Подсегмент имеет вид: 

separate (имя_порождающего_сегмента) соответствующее_тело; 
Имя_порождающего_сегмента, указываемое в подсегменте,-это имя того сегмента 
компиляции, где употребляется заглушка (этот сегмент компиляции называется по¬ 
рождающим сегментом). 

Преимущество использования заглушек состоит в том, что можно проектировать 
программу лишь в общих чертах, транслировать и реализовать только отдельные ее 
детали, а потом писать соответствующие тела сегментов (т.е. некоторый подробный 
текст). Этот подход известен под названием нисходящего проектирования. При ис¬ 
пользовании альтернативного метода разработки программ -восходящего проекти¬ 
рования-разработчик применяет уже существующие компоненты (возможно, имею¬ 
щиеся в некоторых пакетах) как строительные блоки для создания программы, даже 
если эти компоненты могут не в полной мере соответствовать поставленной цели. 
Например, в предыдущих главах мы широко использовали пакет CHECK_DATES_ALT 
(и, в частности, процедуру FILE_IN__DATE) ввиду его возможностей преобразовывать 
дату, даже если его процедуры зачастую выполняли действия, ненужные для решения 
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поставленных задач. Несомненно, что оба подхода (и любой «гибридный» метод) 
одинаково хорошо подкрепляются средствами языка Ада. 

Пример. Здесь иллюстрируется использование заглушек на примере иной формы записи 
объявлений для программы NAME_PHONE из гл. 4. 

with TEXT-IO; use TEXT-10; 
procedure SEP-NAME-PHONE is 

— Для переменных/ начиная LINE-LN и кончая 
— DIGIT-CT/ используйте такие же об'явления/ как 

— ив программе NAME-PHONE из гл. 4. 

— Далее располагаются заглушки. 

procedure LOW_TO_UPPER_N_CT_COMMAS is separate; 
procedure IGNORE-LEAD1NG-SPACES is separate; 
procedure FIND_NEXT_SP_OR_COMMA is separate; 
procedure PLACE-SPACES is separate; 
procedure IS-CORRECT—NAME is separate; 

— Все остальные процедуры также должны 

— компилироваться раздельно, 
begin 

— Здесь используется такое же тело/ как и в 

— программе NAME-PHONE, 
end SEP_NAME_PHONE; 

— Соответствующие тела представлены следующими 

— подсегментами: 
separate (SEP-NAME-PHONE) 
procedure LOW_TO-UPPER_N_CT_COMMAS is 

— Следует точно такой же текст/ как и в 

— исходной версии программы, 
end LOW— ТО -UPPER—N—CT—COMMAS ; 

— Ниже располагается другой подсегмент, 
separate (SEP-NAME-PHONE) 
procedure IGNORE-LEADING-SPACES is 
— Следует точно такой же текст/ как и в 

— исходной версии программы, 
end IGNORE-LEADING-SPACES; 

Весьма похожие подсегменты должны быть написаны и для остальных подпрограмм. 

Пример. В этом примере используются заглушки и подсегменты из программы 
ACCR^INTEREST в гл. 5. В новой версии вначале дается текст порождающего 
сегмента. 

procedure SEP-ACCR-INTEREST is 

— Используйте точно такие же об'явления типов и 

— об'ектов/ как и в программе ACCR-INTEREST, 
function IS_ V ALID_DATE (FORM-DATE = DATE) 

return BOOLEAN is separate; 
procedure FILL-IN-DATE (PROC-F-DATE : in out DATE; 

GOOD-DATE : out BOOLEAN) 
is separate; 

function FIND-COUP-DATE (FORM_MAT_DATE / 

FORM-SETL-DATE .- DATE) 
return DATE is separate; 

begin 

— Тело программы ACCR-INTEREST не меняется, 
end SEP-ACCR-INTEREST 

— Подсегменты/ соответствующие приведенным выше 

— заглушкам/ таковы: 
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separate <SEP_ACCR_INTEREST) 
function IS-VALID_DATE (FORM_DATE = DATE) 
return BOOLEAN is 

— Здесь размещается тело подпрограммы, 
end IS_VALID-DATE; 

— Ниже располагается другой подсегмент, 
separate (SEP_ACCR_INTEREST) 

procedure FI LI_IN-DATE ( PROC-F-DATE .• in out DATE; 

GOOD-DATE = out BOOLEAN ) 
is 

— Здесь размецается тело подпрограммы. 

end FILL_IN_DATE; 

separate ( SEP-ACCR-INTEREST ) 

function FIND-COUP-DATE ( FORM_MAT_DATE, 

FORM-SETL-DATE : DATE ) 

return DATE is 

— Здесь размецается тело подпрограммы, 
end FIND_COUP_DATE; 

Пример. В заключение приводится пример заглушки и соответствующего подсегмента 
для случая пакетов. Здесь используется программа BANK_MAINT из гл. 8. 

with TEXT- 10; use TEXT-IO; 

— Остальная информация о контексте/ кроме инфор- 

— мации о пакете BANK-RESOURCES/ остается без 

— изменений. 

procedure SEP-BANK-MAINT is 
— Здесь внесено изменение: вместо строки 

— with BANK-RESOURCES; use BANK-RESOURCES; 

— записываются следующие строки: 
package BANK-RESOURCES is 

— Копия спецификации пакета, 
end BANK-RESOURCES; 

— Далее располагается заглушка, 
package body BANK-RESOURCES is separate; 

— Все остальное в этой программе совпадает с 

— текстом исходной программы, 
end SEP-BANK-MAINT; 

Соответствующий подсегмент, порождающим сегментом для которого является 
SEP_BANK_MAINT, имеет вид 

separate ( SEP-BANK-MAINT) 
package body BANK-RESOURCES is 

— Здесь размецается копия тела одноименного 

— пакета из гл. 8. 
end BANK-RESOURCES; 

Основное правило компиляции для подсегментов заключается в том, что трансля¬ 
ция порождающего сегмента должна производиться перед трансляцией нужного тела, 
размещенного в соответствующем подсегменте. Например, перед компиляцией под¬ 
сегмента, содержащего тело пакета BANK_RESOURCES (см. предыдущий пример), 
программа SEP_BANK_MAINT уже должна быть оттранслирована. Очевидно, что это 
правило отражает другой вид зависимости, в какой-то степени дополняющей зави¬ 
симость, вносимую фразами with. 

Компиляция подсегмента (скажем, тела пакета BANK_RESOURCES) выполняется 
в контексте порождающего сегмента (в данном случае SEP_BANK_MAINT). Если, 
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вдобавок, подсегмент имеет свое описание контекста, то при компиляции пред¬ 
полагается, что оно добавляется к описанию контекста порождающего сегмента. Это 
правило может быть применено на более высоком уровне повторно, если порождаю¬ 
щий сегмент сам является подсегментом. 


9.3. ПРАВИЛА КОМПИЛЯЦИИ И ПЕРЕКОМПИЛЯЦИИ 

Итак, сегменты компиляции Ады могут быть оттранслированы в любом порядке 
при условии соблюдения двух следующих правил, которым должен подчиняться этот 
порядок: 

1. Вторичный сегмент должен быть оттранслирован после трансляции соответ¬ 
ствующего библиотечного сегмента. Поэтому тела пакетов, тела подпрограмм и 
подсегменты должны компилироваться после соответствующих спецификаций пакетов, 
спецификаций подпрограмм или порождающих сегментов. Но необходимо помнить, 
что тело не родовой подпрограммы может служить своей собственной спецификацией. 

2. Сегмент компиляции должен быть оттранслирован после того, как будут 
оттранслированы все библиотечные сегменты, упоминаемые в его операторах описания 
контекста. Если во время трансляции сегмента возникает ошибка, то библиотека 
программ не модифицируется. 

В Аде есть также два правила перекомпиляции, согласующиеся с приведенными 
выше правилами компиляции: 

1. Ввиду того что вторичные сегменты должны пройти трансляцию после соответ¬ 
ствующих им библиотечных сегментов, любая перекомпиляция библиотечного сегмен¬ 
та делает связанные с ним вторичные сегменты некорректными, и поэтому их следует 
перетранслировать. Однако любая перекомпиляция вторичного сегмента не делает 
непригодным связанный с ним библиотечный сегмент, и поэтому нет нужды в 
какой-либо повторной трансляции библиотечного сегмента. 

2. Если перетранслируется какой-либо сегмент компиляции из описания контекста, 
то выходит из употребления тот сегмент компиляции, к которому относится этот 
контекст, и его следует перекомпилировать. 

Для иллюстрации правил компиляции рассмотрим программу CURR TRANSACTION_ 
PROC из разд. 8.3. В описании контекста дан список таких пакетов, как CHECK 
_DATES_ALT, BANK RESOURCES, TRANSACTION_RESOURCES, TEXT_IO и 
LEGAL_HOLIDAYS. Можно было бы просто передать на трансляцию эти пакеты (их 
спецификации и тела) и саму программу в виде одного большого сегмента компиляции. 
Можно передать на трансляцию и несколько раздельных сегментов компиляции, таких, 
как CHECK_DATES_ALT, BANK_RESOURCES и TRANSACTION RESOURCES, в 
любом порядке, поскольку все эти пакеты независимы друг от друга. Потом можно 
оттранслировать пакет LEGAL_HOLIDAYS, так как он зависит от CHECK_DATES 
_ALT. В заключение можно оттранслировать программу CURR_TRANSACTION_ 
PROC. Возможно множество вариаций этого порядка. Например, можно подавать на 
вход транслятора по два сегмента компиляции сразу, скажем BANK_RESOURCES и 
TRANSACTION_RESOURCES. Независимо от порядка трансляции заданной програм¬ 
мы, если правила компиляции будут соблюдаться, библиотечный файл будет обновлен 
единообразным способом. 

Как упоминалось выше, во время компиляции на вход транслятора поступают 
один или более сегментов компиляции и модули из библиотеки программ. Для каждой 
компиляции предполагается наличие единственной библиотеки программ, несмотря на 
то что в конкретной реализации Ады может иметься несколько библиотек программ. 
Следует ожидать, что на конкретной вычислительной установке будут иметься и 
некоторые другие особенности реализации, касающиеся работы с библиотечным 
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файлом, такие, как создание библиотечного файла, объединение библиотечных файлов 
и выдача запросов по состоянию библиотечных или вторичных сегментов в библио¬ 
течном файле. Также отметьте, что обработка библиотечных сегментов во время 
выполнения программы выполняется способом, согласующимся с приведенными здесь 
правилами компиляции. 

УПРАЖНЕНИЯ 

1. Представьте, что программа NAME_PHONE в гл. 4 написана с помощью нисходящего 
метода. Перепишите эту программу, применяя заглушки и подсегменты для каждой из вы¬ 
зываемых подпрограмм. 

2. Выполните упр. 1 для программы ACCRJNTEREST из гл. 5. 



Глава 10 

Задачи 


10.1. ЗАДАЧИ И МЕХАНИЗМ РАНДЕВУ 


Все представленные до этого момента программы на Аде выполнялись последо¬ 
вательно, т. е. никакие два оператора не выполнялись одновременно. Зачастую, однако, 
решаемая практическая задача может быть лучше представлена в виде параллельного 
выполнения двух или более действий. Например, банковские операции часто произ¬ 
водятся несколькими кассирами одновременно; выполняется управление сразу не¬ 
сколькими самолетами, производящими в одно и то же время посадку или взлет; 
телефонная компания должна иметь дело с несколькими телефонными разговорами, 
ведущимися параллельно. Хотя каждый из этих примеров может быть смоделирован 
при помощи последовательно выполняемых операторов, более естественным подходом 
будет придание языку программирования средств, позволяющих работать с парал¬ 
лельными процессами. 

10.1.1. Задачи 

Работа с параллельными процессами в языке Ада осуществляется с помощью 
средств, называемых задачами, выполнение которых происходит параллельно. Задачи 
являются программными модулями языка Ада. Это - последний вид модулей, с 
которыми мы познакомимся после подпрограмм, пакетов и родовых модулей. Разные 
задачи могут работать независимо, хотя они и имеют средства для связи друг с другом. 
Ада не регламентирует, как должны быть реализованы параллельные задачи, т. е. то, 
сколько компьютеров (но не менее одного) следует использовать, или какой конкрет¬ 
ный вид выполнения нужно применить. Однако Ада интерпретирует задачи как 
логические объекты, ведущие себя так, как будто бы они выполнялись параллельно на 
разных машинах; 

Задачи, как подпрограммы и пакеты, имеют две части: спецификацию и тело. Как 
и в случае подпрограмм и пакетов, спецификация задачи с последующим символом «;» 
составляет объявление задачи. В противоположность подпрограммам и пакетам 
задачи не могут быть оттранслированы самостоятельно. Поэтому для компиляции 
задачи должны быть помещены в подпрограмму или пакет. 

10.1.2. Рандеву 

Задачи языка Ада связываются между собой при помощи входов. Если одна задача 
выдала обращение ко входу и оно принято другой задачей, то обе задачи теряют свою 
независимость: они устанавливают рандеву, и до тех пор, пока рандеву действует, 
задачи синхронизированы. 

Эти понятия будут вскоре проиллюстрированы, но сейчас запомните, что в 
механизме рандеву отсутствует симметрия. То есть одна задача может инициировать 
возможность установления рандеву, обратившись ко входу, а другая задача может 
принять, а может и не принимать вызов, выданный первой задачей. Рандеву происхо- 
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дит только тогда, когда вторая задача принимает вызов. Рандеву может быть в конце 
концов прекращено, и тогда выполнение каждой задачи может продолжаться незави¬ 
симо. 

10.1.3. Спецификация задачи 

Спецификация задачи может определять единственную задачу или тип объектов 
«задача». Тип «задача» распознается по зарезервированному слову type, появляюще¬ 
муся в ее спецификации. Наиболее простая форма спецификации, определяющая 
единственную задачу: 

task идентификатор задачи 

Если после члена «идентификатор_задачи» поставить символ «;», то получится объяв¬ 
ление задачи. Например, можно было бы объявить задачу так: 
task CHECK_BANKS_FOR_OVERFLOW; 

10.1.4. Входы 

Для того чтобы к данной задаче могли обращаться другие задачи, необходимо 
указать точки входов. Точки входов, если они есть, должны быть описаны в специфи¬ 
кации задачи при помощи объявления входа. В этом случае спецификация имеет вид: 
task идентификатор, задачи is 

entry идентификатор_входа (дискретный_диапазон) формальная часть; 

— Далее можно поместить другие объявления входов или 
— фразы представления (см. гл. 7). 
end идентификатор_задачи; 

Дискретный_диапазон (используемый, например, в регулярных типах) и формаль- 
ная_часть (используемая, например, в спецификациях подпрограмм) необязательны. 

Пример спецификации задачи: 

task МА INT_TRAN_FILES is 

entry LOOK_FOR_FILES ( 1 .. 12 ) 

C FORM_MO = INTEGER; 

FORM-DAY = INTEGER); 
end МА INT-TRAN-FILES; 


В этом объявлении задачи при описании входа задачи дискретный диапазон (12 
элементов для 12 возможных месяцев) и формальная часть с двумя формальными 
параметрами типа INTEGER. Другой пример: 

task LOOKING-FOR-BANKS is 
entry INQUIRY 

(INQ-BANK-NAME : in out STRING; 

INQ-POS : out POSITIVE-COUNT; 

INQ-FOUND = out BOOLEAN) is 

end LOOKING-FOR-BANKS; 

Вход INQUIRY имеет формальную часть. Он выполняет проверку, чтобы определить, 
находится ли уже название банка в файле BANK-FILE. Если банк найден, то вход 
возвращает ответ TRUE через переменную INQ_FOUND. Это похоже на процедуру 
RETRIEVE пакета BANK-RESOURCES из гл. 8 с той лишь разницей, что теперь 
могут выполняться одновременно несколько параллельных запросов. 
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Заметьте, что объявления входов имеют вид, похожий на спецификацию подпро¬ 
грамм. Сходство заходит еще дальше: вход задачи может быть вызван в тех же 
случаях, когда разрешен вызов подпрограммы, а правила согласования фактических и 
формальных параметров одинаковы и для задач, и для подпрограмм. 

Однако для задач не существует понятия рекурсивного вызова. А вызов задачей 
самой себя, прямо либо косвенно, является ошибкой, как показано в разд. 10.1.10. 

Формальные параметры, входящие в состав формальной части объявления входа, 
могут, как показывает предыдущий пример, иметь вид связи in (только для чтения), in 
out (и для чтения, и для записи) или out (только для записи). 

Обращения ко входам из вызывающей задачи также имеют форму вызова 
процедур: за именем входа может следовать список фактических параметров, заклю¬ 
ченный в скобки, после которых стоит символ «;». Префикс, состоящий из имени 
задачи, обязателен при обращении к ней, поскольку для задач недопустима фраза use 
(вспомните, что задачи не являются сегментами компиляции). 

Возможно, что несколько задач будут обращаться к одному и тому же входу, в 
этом случае только одной задаче в данный момент времени будет разрешено рандеву. 
Остальные задачи будут ожидать в очереди, которая должна быть обеспечена в любой 
• реализации Ады. Задачи, ожидающие в очереди, будут приняты вызываемой задачей по 
принципу: первым пришел - первым обслужен. О тех задачах, которые находятся в 
очереди, говорят, что они приостановлены. Если две или более задачи обращаются к 
одной и той же задаче одновременно, то порядок их обслуживания не определен. 

Вот пример обращения ко входу: 

LOOKING_FOR_BANKS.INQUIRY (THIS_BANK, TNIS_POS, IS-THERE); 

Этот вызов входа (в предположении, что названная задача видима) будет пытаться 
установить рандеву с LOOK.ING_FOR_BANKS. Если немедленное рандеву невозмож¬ 
но, то вызов будет поставлен в очередь, предусмотренную для входа INQUIRY. 

10.1.5. Тело задачи 

Как упоминалось ранее, типы «задача» описываются точно так же, как и 
отдельные задачи, за исключением того, что при спецификации типов за зарезервиро¬ 
ванным словом task следует зарезервированное слово type. Разумеется, после объявле¬ 
ния типа «задача» можно описывать объекты этого типа. Использование объектов типа 
«задача» весьма ограниченно, поскольку типы «задача» относятся к ограниченным 
приватным типам: их нельзя проверять на равенство или неравенство и их значения 
' нельзя присваивать переменным. 

Тело задачи имеет вид 

task body идентификатор_задачи is 

Здесь размещается декларативная часть. 

begin 

-- Здесь располагается последовательность_операторов. 

end идентификатор_задачи; 

После члена «последовательность_операторов» может располагаться необязательная 
часть для обработки исключительных ситуаций, которая будет описана в гл. И. 


10.1.6. Оператор приема accept 

Если в спецификации задачи имеется объявление входа, то тело задачи должно 
содержать по крайней мере один оператор приема (т. е. оператор accept ). Приблизи¬ 
тельный смысл этого таков: спецификация показывает, может ли задача быть вызвана 
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другой задачей (это достигается с помощью объявлений входов), и определяет вид 
должного обращения к ней. Фактические условия, при которых наступает рандеву, 
указываются в соответствующих операторах accept (для каждого объявления входа 
может иметься более одного соответствующего ему оператора accept). 

Простейшая форма оператора accept такова: 

accept идентификатор_входа; 

Эта форма применяется, если соответствующее объявление входа не имеет ни описа¬ 
теля дискретного диапазона, ни формальной части (они, как отмечалось ранее, 
необязательны для объявления входа). Если же некоторые из этих необязательных 
частей присутствуют в объявлении входа, то и соответствующий оператор accept также 
должен иметь их. Например, оператор accept имеет вид: 

accept идентификатор_входа (выражение) формальная.часть; 

Полная форма оператора accept может содержать член «последовательность_опе- 
раторов», заключенный между зарезервированными словами do ... end, после которых 
ставится «;». Эта последовательность операторов выполняется во время рандеву. 
Полная форма оператора такова: 

accept идентификатор входа (выражение) формальная_часть 
do последовательность операторов end : 

Как упоминалось ранее, рандеву вызывающей и вызываемой задач начинается с 
согласования фактических и формальных параметров. Затем оно продолжается вы¬ 
полнением операторов (если они есть), расположенных между do и end, и при 
достижении символа «;» рандеву заканчивается. Во время рандеву задачи могут 
обмениваться информацией (через список параметров) и, кроме того, они синхронизи¬ 
рованы: член «последовательность_операторов» выполняется «от имени» обеих за¬ 
дач 1) . 

10.1.7. Владельцы 

Мы констатировали ранее, что задачи не являются сегментами компиляции и 
поэтому не могут быть самостоятельно оттранслированы. Обычно их помещают в 
описательную часть пакета или подпрограммы. Поэтому задача должна находиться в 
зависимости от некоторого « владельца», который может представлять из себя под¬ 
программу, блок, пакет или другую задачу. Если задача появляется в декларативной 
части, к примеру, блока, то этот блок будет владельцем данной задачи. Задача может 
иметь нескольких владельцев. Например, если блок, содержащий задачу, запускается 
другой задачей, то вторая задача, как и блок, будет являться владельцем первой 
задачи. Поэтому ясно, что задача может зависеть от нескольких программных модулей 
или блоков. Понятие владельца важно, как будет вскоре показано, для установления 
условий завершения задачи. 


10.1.8. Примеры и программа 

Данный пример иллюстрирует то, как можно написать тело задачи LOOKING_ 
FOR_BANKS для ее спецификации, приведенной ранее. 


11 Эта последовательность операторов в литературе называется критической секцией, и на 
время ее выполнения вызывающая задача приостанавливается.- Прим, перев. 
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task body LOOKING-FOR-BANKS is 
NO_FILES-PROCESSED : NATURAL := 0; 

— Предполагается/ что об'явления пакета 

— BANK-RESOURCES видимы/ а сам пакет 

— обработан, 
begin 

loop 

accept INQUIRY 

(INQ-BANK-NAME .■ in out STRING; 

INQ-POS = out POSITIVE-COUNT; 

INQ-FOUND : out BOOLEAN) 

do 

— Следующие операторы будут вы- 

— полняться во время рандеву. 

RETRIEVE(FORM-BANK-NAME => INQ_BANK_NAME / 

FORM-POS => INQ-POS/ 

FORM-FOUND => INQ-FOUND ); 
if INQ-BANK-NAME = •'12345678901234567890" 
then 

NO-FILES_PROCESSED == 

NO-FILES-PROCESSED + 1; 

end if; 

— Рандеву заканчивается при выполнении 

— следующего оператора, 
end INQUIRY; 

exit when NO-FILES-PROCESSED = 2; 

— Когда количество закрытых фаллов 

— становится равным 2 , то дополни- 

— тельных входных данных ожидать 

— не следует, 
end loop; 

CLOSE (BANK-FILE); 
end L00KING_F0R_BANKS; 


Эти спецификацию и тело LOOKING_FOR_BANKS можно поместить в новый 
пакет, названный PARALLELBANK-RESOURCES и имеющий такую спецификацию: 

with BANK-RESOURCES; use BANK-RESOURCES; 
package PARALLEL-BANK-RESOURCES is 

— Здесь располагается спецификация задачи 
— LOOKING-FOR-BANKS, 
end PARALLEL-BANK-RESOURCES; 

package body PARALLEL-BANK-RESOURCES is 
— Здесь располагается тело задачи 
-- L00KING_F0R_BANKS. 
begin 

end PARALLEL-BANK-RESOURCES; 


В программе, приведенной ниже, используется задача из пакета PARALLEL- 
BANK. RESOURCES и еще две задачи. Эта программа считывает названия банков из 
двух последовательных файлов и проверяет, есть ли эти имена в файле BANKJFILE. 
После того как для обоих последовательных файлов будет достигнуто состояние 
END_OF_FILE (Конец файла), программа выдает отношение количества банков, 
найденных в файле BANK_FILE, к общему числу банков для каждого из последова¬ 
тельных файлов и завершается. 
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Программа GATHER BAN ^STATISTICS 


with TEXT_10; use TEXT-IO; 
with SEQUENTIAL-IO, DIRECT_I0/ 

PARALLEI_BANK-RESOURCES; 

use DIRECT— 10/ PARALLEI_BANK-RESOURCES; 

procedure GATHER-BANK-STATISTICS is 

package SEQ-l is new SEQUENTIAI_I0(STRING(1..20)); 

package SEQ-2 is new SEQUENTIAI_I0(STRIMG<1..20)); 

use SEQ-l / SEQ-2; 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 

FILE-1 = SEQ-l.FILE-TYPE; 

FILE-2 : SEQ-2.FILE-TYPE; 

— Далее располагаются спецификации двух задач - 

— CHECK-FILE_ 1 и CHECK-FILE-2 . Эти задачи не имеют 

— входов. 

task CHECK-FILE-1; 
task CHECK-FILE_2; 

task body CHECK-FILE-l is 

NO—HITS—FILE-1 / TOT—FILE-1 : NATURAL := Ѳ; 

BNK_1 = STRING <1 .. 20); 

BNK-l-POS = NATURAL; 

IS—1-THERE : BOOLEAN; 

FILE-1 : FILE-TYPE; 
begin 

OPEN (FILE => FILE-1/ 

MODE => IN-FILE/ 

NAME => "FILE1.DAT" 

FORM => ""); 

while not END-OF-FILE (FILE-1) 
loop 

READ (FILE => FILE-1/ ITEM => BNK-l); 

TOT—FILE-1 .* TOT—FILE—1 + 1; 

LOOKING_FOR_BANKS.INQUIRY 

(BNK-l/ BNK-l-POS/ IS-l-THERE); 

— В этом операторе выполняется вызов входа 

— задачи LOOKING-FOR-BANKS. Вызывающая задача 

— будет приостановлена до завершения рандеву. 
— После начала рандеву вызывающая задача бу- 

— дет синхронизирована с вызываемой/ и эти 

— задачи станут обмениваться информацией. 

— Например/ переменная IS-1-THERE будет нести 

— информацию о том/ содержится ли в файле 
— BANK-FILE название банка/ задаваемое фак- 

— тическим параметром. Начиная со следующего 

— оператора/ обе задачи станут вновь незави- 

— симыми друг от друга/ и это будет продолжа- 

— ться вплоть до следующего рандеву, 
if IS-l-THERE 

then 

NG-HITS-FILE-l := N0_HITS_FILE_1 + 1; 
end if; 
end loop; 
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LOOKING_FOR_BANKS.INQUIRY ( "12345678901234567890 
BNK_1_P0S/ IS—l—THERE ); 

— Этот вызов входа призван гарантировать то, 

— что данная задача в конце концов завершится. 
PUT (" The number of banks In FILE1.DAT is "); 
PUT( T0T_FILE_1 ); 

PUT(" The number of banks in FILE1.DAT “ & 

"and BANK-FILE is "); 

PUT( NO—HITS—FILE—1 ); 

CLOSE (FILE-1); 
end CHECK—FILE—1; 

— Эта задача является копией задачи CHECK-FILE-2 

— использующей второй последовательный Файл. 

— В упр.1 в конце главы требуется применить 

— иной подход к реализации программы. 

task body CHECK—FILE_2 is 

N0_HITS_FILE-2, TOT-FILE-2 = NATURAL ==0; 

BNK-2 = STRING (1 .. 20); 

BNK-2-P0S = NATURAL; 

IS—2_THERE : BOOLEAN; 

FILE-2 = FILE-TYPE; 
begin 

OPEN (FILE => FILE-2, 

MODE => IN-FILE, 

NAME => “FILE2.DAT" 

FORM => " H >; 

while not END-OF-FILE (FILE-2) 
loop 

READ (FILE =■> FILE-2, ITEM => BNK-2); 
TOT-FILE—2 := T0T_FILE_2 + 1; 
LOOKING-FOR-BANKS.INQUIRY 

(BNK-2, BNK-2-P0S, IS-2-THERE); 
if IS-2-THERE 
then 

N0_HITS_FILE_2 := NO-HITS-FILE-2 + 1; 
end if; 
end loop; 

LOOKING-FOR-BANKS.INQUIRY(“12345678901234567890 
, BNK-2-P0S, IS-2-THERE ); 

PUT(" The number of banks in FILE2.DAT IS "); 
PUT( TOT-FILE—2 ); 

PUT(" The number of banks in FILE2.DAT “ & 

"and BANK-FILE is "); 

PUT( NO—HITS_FILE_2 ); 

CLOSE( FILE-2 ); 
end CHECK-FILE_2; 

begin 

— Здесь начинается главная программа. В ней 

— должен быть, по крайней мере хотя бы 

— один пустой оператор, 
null; 

end GATHER-BANK-STATISTICS; 
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10.1.9. Состояния задач 

Задачи становятся активными-т.е. они начинают свою логически независимую 
работу, действуя так, как будто бы они выполнялись на разных машинах,-когда в паке¬ 
те или подпрограмме, которые их содержат, встретится зарезервированное слово begin, 
помечающее начало члена «последовательность_операторов». Запуск задачи означает 
последовательное выполнение операторов из исполняемой части ее тела. 

Задача заканчивается, когда достигается конец ее тела. Понятие окончания 
выполнения, как это демонстрируют приведенные ранее программы, справедливо 
также для подпрограмм и блоков. Окончание задачи, подпрограммы или блока может 
произойти и по многим другим причинам, например, при возникновении исключи¬ 
тельных ситуаций. Это будет рассмотрено в следующей главе. 

В предыдущей программе имеются три задачи (кроме главной программы, 
которая также считается задачей). Владельцем задач СНЕСКЛЬЕ_1 и СНЕСК_ 
FILE_2 является процедура GATHER_BANK_STATISTICS. Владелец третьей задачи 
LOOKING_FOR_BANKS - это пакет PARALLEL_BANK_RESOURCES. Эти задачи 
могут находиться в одном из трех состояний: выполняются (т.е. выполняются их 
операторы), приостановлены (например, в ожидании рандеву) или полностью завер¬ 
шены (например, закончилось выполнение данной задачи и всех других зависящих от 
нее задач). Полное завершение задачи, которое будет детально рассмотрено в следую¬ 
щем разделе,-это более общее понятие, чем окончание выполнения задачи. «Окончание 
выполнения» означает лишь то, что при последовательном выполнении операторов 
задачи достигнуто зарезервированное слово end. Окончание выполнения данной задачи 
никак не связано с работой зависящих от нее задач, которые могут продолжать свои 
действия. Напротив, понятие «полного завершения» подразумевает окончание выпол¬ 
нения этой задачи и, возможно, полное завершение зависящих от нее задач и ее 
задач-владельцев. 

Обратимся опять к предыдущей программе. Если задача LOOKING FOR_BANKS 
достигнет оператора accept, то может случиться так, что ни одна из других задач еще не 
обратилась к ней. В этом случае выполнение LOOKING_FOR_BANKS будет приоста¬ 
новлено и она будет находиться в этом состоянии до тех пор, пока не станет 
возможным рандеву. Фактически, если в будущем так и не произойдет обращения к 
этой задаче, она никогда не выйдет из приостановленного состояния. Для предотвра¬ 
щения такой ситуации мы ввели в программу счетчик количества закрытых входных 
файлов, и поэтому по окончании обработки всех входных файлов производится выход 
из цикла. 

Возможно, что все три задачи будут выполняться одновременно (когда они 
запускаются в первый раз, то каждая задача независимо от других открывает файл), но 
может случиться и так, что одна или две задачи будут в данный момент приостанов¬ 
лены. Например, приостанавливаются сразу две задачи, если в одной из них выпол¬ 
няется оператор accept, а другая в это время уже приостановлена в ожидании рандеву. 
В этом случае одна из задач ожидает рандеву в очереди, связанной с данным 
оператором accept. В предыдущей программе в состоянии ожидания никогда не могло 
находиться более одной задачи, поскольку каждая из задач, считывающих входной 
последовательный файл, после каждой операции чтения приостанавливается до завер¬ 
шения ее рандеву с LOOKING_FOR_BANKS. Такая ситуация возникает потому, что 
здесь отсутствует буферная задача, а вызывающая задача ожидает завершения своего 
рандеву. Вероятно, затрачивается большее время на проверку и обработку нескольких 
записей из файла BANK_FILE, чем на чтение из последовательного файла. 

Теперь подытожим некоторые свойства асимметрии механизма рандеву: 

- вызываемая задача «не знает», какая из задач обращается к ней (а вызывающая 
задача «знает», куда она обращается). Так, задаче LOOKING_FOR_BANKS не 
известно, имеет ли она рандеву с CHECK_FILE_1 или же с CHECK_FILE_J2; 


17-618 
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CHECK—FI LE_ 1 LOOKING_FOR_BANKS CHECK_FILE_2 
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Рис. 10.1. Механизм рандеву. 

Момент времени: 

1- задача LOOKING_FOR_BANKS ожидает 
вызова. Другие задачи не выдают вызовов; 

2- происходит рандеву между задачами 
CHECK_FILE_1 и LOOKING.FOR.BANKS. 
Задача CHECK_FILE_2 ожидает своей очереди; 

3- рандеву между задачами CHECK_FILE_2 
и LOOKING_FOR_BANKS, 4-задачи CHECK. 
FILE1 и CHECK_FILE_2 пытаются вызвать 
задачу LOOKING_FOR_BANKS (жоторая не 


- вызываемая задача приостанавливает вызывающую на время действия рандеву. 
Заметьте, что во время рандеву вызываемая задача может выдать запрос на 
проведение рандеву с другой задачей. В этой ситуации новое рандеву должно 
закончиться раньше, чем может завершиться предыдущее. 

Рис. 10.1 иллюстрирует различные состояния для трех задач из программы 
GATHER Л ANK.ST ATISTICS при разных условиях. 

10.1.10. Блокировка 

Необходимо проявлять особую осторожность, чтобы избегать такого положения, 
когда все задачи в программе приостанавливаются в ожидании выполнения друг друга. 
Эта ситуация называется блокировкой. Ниже приведен простой пример блокировки. 

Пример. Рассмотрим следующую процедуру; 

procedure DEADLOCK-EXAMPLE is 
task CALLS-ITSELF is 
entry ENTRY-POINT; 
end CALLS-ITSELF; 
procedure INTERM is 

CALLS-ITSELF.ENTRY-POINT; 
end INTERM; 

task body CALLS-ITSELF is 
INTERM; 

accept ENTRY-POINT; 
end CALLS-ITSELF; 
begin 
null; 

end DEADLOCK-EXAMPLE; 

В этой программе запускается задача CALLS_ITSELF, затем она вызывает 
процедуру INTERM, которая в свою очередь выдает обращение ко входу ENTRY POINT. 
Ввиду того что оператор accept не достигается, вызов приостанавливается. Но 
оператор accept никогда не будет выполнен, так как вначале должно закончиться 
выполнение предшествующего оператора. Этот пример блокировки иллюстрирует 
рис. 10.2. 
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CALLS—ITSELF 



Вход ENTRY_POINT 
(рандеву не может быть 
установлено, так как 
процедура INTERM не завершилась) 


Распознать возможность возникновения блокировки и избежать ее весьма непро¬ 
сто. В реальных ситуациях причины блокировки могут быть в противоположность 
данному примеру далеко не так очевидны. 


10.2. ОПЕРАТОРЫ И АТРИБУТЫ ДЛЯ ЗАДАЧ 

10.2.1. Оператор задержки 

Выполнение задачи может быть временно приостановлено с помощью оператора 
задержки delay. Его форма такова: 
delay выражение для_длительности; 

Член «выражение_для_длительности» принадлежит к предопределенному фиксирован¬ 
ному типу DURATION. Описание этого типа входит в пакет STANDARD, текст 
которого дан в приложении В. Оператор delay приостанавливает выполнение задачи по 
меньшей мере на то количество секунд, которое задано в «выражениедля_ длительности». 

Предопределенный пакет CALENDAR, текст которого приведен в приложении В, 
определяет операции, возможные для величин приватного типа TIME. Вот некоторые 
из перекрывающихся операций, определенные в этом пакете: +, —, <, <=, > и >=. 
Эти функции возвращают значения типов TIME или DURATION и имеют формаль¬ 
ные параметры типов TIME или DURATION. 

Пакет CALENDAR содержит и некоторые другие полезные подпрограммы, такие, 
как SPLIT (по заданному значению времени она возвращает значения YEAR -год, 
MONTH -месяц, DAY -число и SECONDS -секунды) и TIME_OF (которая выполняет 
обратные по сравнению со SPLIT действия: по заданным значениям типов YEAR, 
MONTH, DAY и SECONDS возвращает значение типа TIME). Есть в этом пакете и ряд 
других функций, которые независимо выполняют операции над величинами некоторых 
из перечисленных типов. Пакет CALENDAR используется в программе PLANTJSCHED, 
которая будет приведена далее. 

10.2.2. Оператор отбора. Выборочное ожидание 

Существуют три вида операторов отбора (select), имеющие названия: выборочное 
ожидание, условный вызов входа и таймированный вызов входа. Обсудим их по 
очереди. 

Оператор выборочного ожидания имеет форму: 
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select: 

альтернатива_отбора 

— В операторе select может быть одна или несколько 
— альтернатив отбора, 
or 

альтернатива отбора 
else 

последовательность_операторов 
end select ; 

Здесь допустимы одна или несколько альтернатив отбора, разделяемых зарезервиро¬ 
ванным словом ог. Альтернативы могут отсутствовать. Часть else необязательна. 
Альтернатива отбора может иметь следующие три разновидности: 
when условие = > оператор„приема 

последовательность_операторов 
when условие = > опѳратор_задержки 

последовательность, операторов 
when условие = > terminate: 

Необязательными частями здесь являются: «последовательность_операторов» и «when 
условие =>» (условие отбора альтернативы). 

Если для альтернативы отсутствует зарезервированное слово when или же если 
условие, следующее за словом when, истинно, то соответствующая альтернатива 
оператора select называется открытой. В противном случае она называется закрытой. 
Эти термины полезны для понимания работы операторов селективного ожидания. 

В операторе селективного ожидания должна иметься по крайней мере одна 
альтернатива приема с оператором accept. Выполнение оператора селективного ожи¬ 
дания происходит следующим образом. Вначале в некотором произвольном порядке 
вычисляются условия, стоящие за зарезервированными словами when. Затем одна из 
альтернатив отбора или else -часть , если только она имеется, будет претендовать на 
выполнение. Предпочтение будет отдано любой из открытых альтернатив с операто¬ 
ром приема, которая может установить рандеву. Если несколько альтернатив удов¬ 
летворяет этому требованию, то одна из них будет выбрана случайным образом. 
Выбор альтернативы с оператором приема означает, что будут выполнены и последо¬ 
вательность операторов, входящая в оператор приема (если она есть), и последова¬ 
тельность операторов, следующая за оператором приема (если эта последовательность 
имеется). 

Если ни для какой альтернативы приема невозможно осуществить рандеву и если 
else -часть отсутствует, то задача войдет в состояние ожидания. Однако если имеется 
else -часть, то она будет отобрана и выполнена. 

В то время как задача будет находиться в состоянии ожидания, будет выполняться 
отбор открытой альтернативы задержки с оператором delay. Это произойдет, если 
заданная задержка истекла, а никакая альтернатива приема не могла быть отобрана. 
Если в нескольких альтернативах задержки указана одинаковая длительность, то будет 
отобрана случайным образом одна из этих альтернатив. 

В конце концов будет отобрана терминирующая альтернатива, если все зависимые 
задачи данной задачи-владельца завершились или же находятся в состоянии ожидания 
по терминирующей альтернативе, а в очередях ко входам этих задач нет ни одного 
вызова. Если все альтернативы закрыты, а else -часть отсутствует, то возникает 
исключительная ситуация PROGRAM_ERROR. Пояснения по этой ситуации будут 
даны в гл. И. 

Обратите внимание, что отбор терминирующей альтернативы в операторе селек- 
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тивного ожидания еще не означает, что задача, содержащая эту альтернативу, 
завершится. В данной ситуации завершение задачи произойдет только тогда, когда 
задача-владелец данной задачи закончится, а все зависимые от владельца задачи 
завершатся или будут находиться в состоянии ожидания по терминирующей альтер¬ 
нативе. 

Пример. Данный пример иллюстрирует применение оператора селективного ожидания 
в пакете. Пакет включает модификацию спецификации и тела задачи LOOKING. 
FOR BANKS. Эта модификация позволяет выполнять как чтение, так и обновление 
данных о банках. 

task LOOKING-FOR-BANKS is 
entry INQUIRY 

<INQ-BANK-NAME . STRING (1 .. 20) ; 

INQ-POS . out POSITIVE-COUNT/ 

INQ-FOUND : out BOOLEAN ); 

entry BK-CHANGE 

<CHANGE-BANK-NAME , STRING (1 .. 20) ; 

CHANGE-POS . out POSITIVE-COUNT/ 

CHANGE-INFO : STRING ( 1 .. 49 ); 

CHANGE-FOUND : out BOOLEAN ); 

end LOOKING-FOR-BANKS; 


task body LOOKING-FOR-BANKS is 

NO—FILES—PROCESSED . NATURAL := 0; 

CHANGE-HEAD : BANK-INFO; 

CHANGE-BANK-REC : BANK-REC; 
begin 
loop 

— Пример оператора отбора: 
select 

— Для данной альтернативы нет части 

— "when"/ но есть часть "посладователь- 

— ность операторов". 
accept INQUIRY 

(INQ-BANK_NAME : STRING (1 .. 20); 

INQ-POS = out POSITIVE-COUNT; 

INQ-FOUND : out BOOLEAN ) 

do 

RETRIEVE(FORM_BANK_NAME «> INQ-BANK-NAME, 
FORM-POS *> INQ-POS, 

FORM-FOUND »> INQ-FOUND >; 
if INQ-BANK-NAME - "12345678901234567890" 
then 

N0_FILES—PROCESSED 

N0_FILES-PROCESSED + 1; 

end if; 
end INQUIRY; 


accept BK-CHANGE 

(CHANGE_BANK_NAME : STRING(1..20); 

CHANGE-POS : out POSITIVE-COUNT; 

CHANGE-INFO : STRING(1..49); 

CHANGE-FOUND . out BOOLEAN) 

do 

RETRIEVE(FORM_BANK_NAME => CHANGE-BANK-NAME, 
FORM-POS => CHANGE-POS, 

FORM-FOUND ■> CHANGE-FOUND ); 
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if CHANGE-BANK-NAME = “12345678901234567890" 
their 

N0_F1LES-PROCESSED :» 

NO_FILES-PROCESSED + 1; 

else 

— Если банк найден* то запись обновляется, 
if CHANGE-FOUND 
then 

CHANGE-BANK-REC.MAST-HEAD.BANK-NAME :- 
FORM-BANK-NAME; 

CHANGE-BANK-REC.MAST-HEAD.OTHER-INFO := 
CHANGE-INFO; 

WRITE (FILE => BANK-FILE, 

ITEM => CHANGE-BANK-REC, 

FROM => CHANGE-POS); 

end if; 
end if; 

end BK-CHANGE; 
or terminate; 
end select; 

exit when NO-FILES-PROCESSED =3; 

— Когда количество закрытых Файлов станет 

— равно трем, то входные данные должны 

— закончиться, 
end loop; 

CLOSE < BANK-FILE); 

— Цикл будет выполняться до тех пор, пока 
-- будут открытыми три файла, обрабатывающи- 

— вся тремя независимыми задачами. 

— После закрытия этих файлов ни одна задача 

— не будет обращаться к файлу BANK-FILE, 
end LOOKING-FOR-BANKS; 


Тело задачи из данного примера реализует механизм, гарантирующий взаимное 
исключение некоторых событий. Термин «взаимное исключение» относится к опера¬ 
циям, которые нельзя выполнять одновременно с точки зрения их совместимости. 
Например, нельзя параллельно обновлять и считывать данные, поскольку одна задача 
может считать данные, которые уже стали устаревшими из-за того, что другая задача 
записала новые данные или изменила имеющиеся. Оператор отбора, расположенный в 
теле задачи, позволяет добиться нужного взаимного исключения, так как в любой 
момент времени может быть отобрана только одна альтернатива, а данные можно 
считывать или изменять только посредством (составного) оператора отбора select. 

Пример. Описываемая здесь задача CHANGE_FILE_1 выполняет обновление содер¬ 
жимого файла BANKJ1LE на основании информации, считанной из файла CHNG_FILE. 
Эта задача является непосредственной модификацией задач CHECK_FILE_1 и СНЕСК_ 
FILEJ2. Данная задача размещается в той же самой программе, где находились эти две 
задачи-предшественницы. 

task CHANGE-FILE_1; 

task body CHANGE-FILE-1 is 

CHNG-BNK—1 : STRING < 1 .. 20 ); 

CHNG—INFO-1 = STRING (1 .. 49); 

N0_HITS_FILE-CHNG, TOT-FILE-CHNG : NATURAL := 0; 

BNK-CHNG-POS : NATURAL; 

IS-CHNG-THERE : BOOLEAN; 
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CHNG-FILE = FILE-TYPE; 
begin 

OPEN(FILE => CHNG-FILE/ 

MODE => IN-FILE у 
NAME => "CHANG1.DAT", 

FORM »> " " ); 

while not END-OF-FILE (CHNG-FLE) 
loop 

READ (FILE => CHNG-FILE у 

ITEM => CHNG-BNK-l ); 

T ОТ— FILE-CHNG := TOT—FILE_CHNG + 1; 
LOOKING-FOR-BANKS.BK-CHANGE 

(CHANGE_BANK_NAME ■> CHNG—BNK_1, 

CHANGE-POS => BNK—CHNG-POS, 

CHANGE-INFO => CHNG-INFO-1 у 

CHANGE-FOUND *> IS-CHNG-THERE ); 

if IS-CHNG-THERE 
then 

NO_HITS_FILE-CHNG .= NO_HITS_FILE-CHNG + 1; 
end if; 
end loop; 

LOOK ING-FOR-BANKS. BK-CHANGE 

(CHANGE_BANK_NAME => "123456789Ѳ1234567890" , 

CHANGE-POS -> BNK_CHNG_POSy 

CHANGE-INFO => CHNG-INFO-1 у 

CHANGE-FOUND => IS_CHNG_THERE ); 

PUT( H The number of banks in CHNG-FILE is "); 
PUT( TOT-FILE-CHNG ); 

PUT(" The number of banks in CHNG-FILE " *< 

"and BANK-FILE is "); 

PUT(NO_HITS_FILE-CHNG); 

CLOSE (CHNG-FILE); 
end CHANGE-FILE_1; 


10.2.3. Оператор отбора select: 

условные и таймированные вызовы входов 

Операторы селективного ожидания определяют условия, при которых станет 
возможным рандеву с вызываемой задачей, а операторы условного и таймированного 
вызовов входа можно использовать в вызывающих задачах для попытки установления 
рандеву, которое может быть при некоторых обстоятельствах отменено. При условном 
вызове входа попытка установления рандеву отменяется немедленно, если оно оказы¬ 
вается невозможным. При таймированном вызове входа обращение к нему отменяется 
после заданной задержки. 

Полная форма условного вызова входа: 
select 

оператор_вызова_входа 

последовательность_операторов 

else 

последовательность_операторов 
end select : 

Член «последовательность_операторов», расположенный после оператора_вызова_лхода, 
может отсутствовать. 
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Оператор условного вызова входа выполняется следующим образом. Вычисля¬ 
ются фактические параметры оператора_вызова_входа (если они есть). Затем пред¬ 
принимается попытка установить рандеву с вызываемой задачей. Если немедленное 
осуществление рандеву невозможно, то вне зависимости от причины этого будет 
выполняться else -часть данного оператора. Если же рандеву произойдет, то после его 
окончания будет выполняться последовательность операторов, стоящая за операто- 
ром__вызова_входа (если она присутствует). 

Условный вызов входа дает возможность сэкономить некоторое время и выпол¬ 
нить какие-то полезные действия, если немедленное установление рандеву окажется 
невозможным 1) . Вызов не помещается в очередь. Вместо этого будет выполняться 
последовательность_операторов, расположенная после зарезервированного слова else, 
а попытку вызова входа можно будет повторить позднее. В упр. 2 в конце данной главы 
предлагается модифицировать текст программы GATHER_BANK_STATISTICS, с тем 
чтобы использовать условные вызовы входов. 

Полная форма таймированного вызова входа: 
select 

оператор вызова_входа 
последовател ьность_операторов 
от 

альтернатива с^задержкой 
последовательность_операторов 
end select: 

Как и в случае условного вызова входа, здесь последовательность операторов, 
располагающаяся после оператора_вызова_лхода, может отсутствовать. Может не 
быть и альтернативы_с_задержкой. 

Выполнение оператора таймированного вызова входа происходит следующим 
образом. Вычисляются фактические параметры оператора_вызова_входа (если они 
есть). Затем вычисляется выражение, стоящее после зарезервированного слова delay. 
После этого в течение вычисленного интервала времени предпринимается попытка 
установления рандеву с вызываемой задачей. Если рандеву станет возможным, то оно 
начнется. После завершения рандеву выполняется последовательность_операторов 
(если она имеется), стоящая после оператора вызова входа. Если же в течение 
заданного периода времени установить рандеву окажется'невозможным, то выпол¬ 
нится последовательность операторов (если она есть), стоящая после оператора 
задержки. 

Если при условном или таймированном вызове входа обнаружится, что вызывае¬ 
мая задача уже завершилась, то возникнет исключительная ситуация TASKING_ERROR. 
Пример того, как можно действовать в такой ситуации, будет дан в гл. 11. 

10.2.4. Атрибуты входа и задачи 

В нижеследующей программе приводится пример употребления таймированных 
вызовов входов. В программе моделируется в упрощенном виде производственная 
задача, в которой изделие при изготовлении проходит две производственные опера¬ 
ций -OPER1 и OPER2. В программе также используется запрос атрибута входа 
E'COUNT, который дает количество обращений ко входу Е задачи Т, стоящих в 
данный момент в очереди. 

Для типов «задача» и объектов этих типов существуют и некоторые .другие 
полезные атрибуты (Т обозначает объект типа «задача»): 


Не тратя времени на ожидание. -Прим, перев. 
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T'CALLABLE Дает логическое значение FALSE, если задача закончилась (пол¬ 

ностью завершилась или находится на стадии аварийного 
завершения). В остальных случаях получается значение TRUE 
T'TERMINATED Дает логическое значение TRUE, если задача Т полностью 

завершилась. В противном случае вырабатывается значение 
FALSE 

На производственном участке имеются три машины: МАСН1, МАСН2 и МАСНЗ, 
которые выполняют производственные операции. Машина МАСН1 выполняет опе¬ 
рацию OPER1 приблизительно за 3 мин, МАСН2- операцию OPER2 примерно за 7 
мин, а МАСНЗ-обе операции, т.е. OPER1 и OPER2 (всегда последовательно), 
приблизительно за 11 мин. После окончания изготовления изделие подлежит проверке, 
которая занимает около 2 мин. При этом отбраковываются 5% изделий. Каждые 2 ч 
контролер уходит на пятнадцатиминутный перерыв выпить чашечку кофе. (Но он 
уходит на перерыв только после окончания проверки очередного изделия, а не в 
середине процесса проверки.) Забракованные изделия должны повторно пройти произ¬ 
водственные операции OPER1 и OPER2. 

Указанные здесь затраты времени на производственные операции и проверку 
являются усредненными. Реальные затраты времени распределены по некоторому 
предполагаемому случайному закону. Для получения фактических затрат времени 
используется пакет DISTRIBUTIONS. 

Предположим, что в начале рабочего дня поступила партия из двухсот заготовок 
изделий. Программа должна определить, сколько времени будет потрачено на произ¬ 
водство готовых изделий из этой партии заготовок. 

Программа PLANT_SCHED 
with CALENDAR; us* CALENDAR; 
package DISTRIBUTIONS is 

type DIST_KINDS is <TIHE_MACH1, TIME-MACH2, 

TIME -МАСНЗ/ INSPECTION); 

— Для сокращения затрат времени/ затрачи- 

— ваемого на моделирование/ случайные вели- 

— чины измеряются в секундах/ а не в 

— минутах. 

function PROBABIL IТ Y < FORM-D1ST = in out 
DIST-KIND) return DURATION; 

function INSP-RESULT return BOOLEAN; 

— Эта функция вырабатывает значение TRUE/ 

— если изделие успешно проходит проверку, 
end DISTRIBUTIONS; 

with DISTRIBUTIONS; use DISTRIBUTIONS; 
with CALENDAR; use CALENDAR; 

— Этот пакет нужен для Функций CLOCK и . 
with TEXT_IO; use TEXT_IO; 
procedure PLANT.SCHED is 

— В упр.4 в конце главы предлагается иной 

— подход - все двести изделий моделируются 

— семейством задач. 

N-OF-FINISHED-PROD = NATURAL := О; 

N_OF_REJECTS : NATURAL =» О; 

MACHl-AVAIL, MACH2—AVAIL / МАСНЗ- AVAIL = 

NATURAL =* 0; 

— С помочью этих переменных подсчитывается ко- 

— личество изделий/ обработанных каждой машиной/ 

— но не принятых немедленно следующей стадией 
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— производственного процесса. Это - разделяемы* 

— переменные/ их “поведение" будет подробнее 

— рассмотрено в следующем разделе, 
task COORDINATOR is 

entry SCkED; 
end COORDINATOR; 
task MACH1 is 
entry 0PER1; 
end MACH1; 
task MACH2 is 
entry 0PER2; 
end MACH2; 
task MACH3 is 
entry 0PER1_N_2; 
end MACH3; 

task STOP-INSPECTION; 
task INSPECT is 
entry PRODUCT; 
entry TAKE-A-BREAK; 
and INSPECT; 

task body MACH1 is 

MACHl-JOB-DURATION . DURATION; 
begin 

MACHl—JOB—DURATION := PROBABILITY <ТГМЕ_МАСН1) ; 
loop 

accept 0PER1; 

delay MACHl-JOB—DURATION; 

— Оператор отбора/ расположенный ниже/ га- 

— рантирует то/ что эта задача не будет 

— приостановлена (и соответственно данная 

— машина не будет простаивать) в случае/ если 

— вторая машина окажется недоступной. Анало- 

— гично обстоит дело со всеми тремя машинами, 
select 

МАСН2. 0PER2 ; 
else 

MACHl—AVAIL :■ MACHl-AVAIL + 1; 
end select; 

MACHl-JOB—DURATION PROBABILITY(TIME-MACHl); 

end loop; 
end MACHl; 

task body MACH2 is 

MACH2-JOB-DURATION : DURATION; 
begin 

MACH2-JOB-DURATION := PROBABILITY<TIME-MACH2); 
loop 
loop 

— Данный оператор отбора обеспечивает 

— отсутствие простоя машины МАСН2/ если 

— нет вызова от MACHl. В упр.З в конце 

— главы предлагается реализовать иной 

— подход/ предусматриваюций использо- 

— вание задачи—буфера. 
select 

accept 0PER2; 
exit; 
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else 

if MACHl-AVAIL > 0 
then 

MACHl-AVAIL MACHl-AVAIL - 1/ 
exit; 
end if; 
end select; 
end loop; 

delay MACH2-J0B-DURATI0N; 
select 

INSPECT.PRODUCT; 
else 

MACH2-AVAIL ,= MACH2-AVAIL + 1; 
end select; 

MACH2-JOB-DURATION PROBABILITYtTIME—MACH2); 

end loop; 
end MACH2; 

task body MACH3 is 

MACH3-JOB-DURATION : DURATION; 
begin 

MACH3-JOB-DURAT1ON := PROBABILITY(TIME-MACH3); 
loop 

accept 0PER1-N-2; 

delay MACH3-JOB-DURATION; 

select 

TNSPECT.PRODUCT; 
else 

MACH3-AVAIL :■ MACH3-AVAIL + 1; 
end select; 

MACH3-JOB-DURATION :* PROBABILITY(TIME-MACH3); 
end loop; 
end MACH3; 

task body COORDINATOR is 
begin 

— До тех пор пока будут иметься вызовы к данной 

— задаче или до тех пор пока количество забра- 

— кованных изделий будет положительным/ таймиро- 

— ванный вызов входа будет предпринимать попытку 

— установления рандеву с задачей МАСН1 или МАСНЗ 

— путем переключения от одной задачи к другой/ 

— если рандеву окажется невозможным/ каждые Ѳ.Ѳ1 

— с. Здесь моделирование вносит некоторое 

— добавочное время ввиду возможной задержки на 

— 0.01 с. 
accept SCHED; 

— Данный оператор приема гарантирует то/ что обра- 

— ботка вызовов начнется с главной программы, 
loop 

loop 

select 

МАСН1 .0PER1; 
exit; 
or 

delay 0.01; 
end select; 
select 
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МАСНЗ. 0PER1-N-2 ; 
exit; 
or 

delay 0.01; 
end select; 

— Альтернативный способ моделирования данной 

— ситуации (без дополнительной задержки на 

— 0.01с) - это использование условного вызо- 

— ва входа: 

— loop 

— select 

МАСН1. 0PER1; 
exit; 

— else 

null; 

— end select; 

— select 

MACH3.0PER1_N_2; 

— exit; 

— else 

null; 

end select; 

— end loop; 
end loop; 
select; 

accept SCHED; 
else 

— Эта альтернатива выбирается в том случае/ 

— когда все 200 изделий обработаны/ а не- 

— сколько бракованных изделий необходимо 

— обработать заново. Здесь можно было бы 

— просмотреть количество бракованных из- 

— делий с целью принятия решения о направ- 

— лении их на повторную обработку. Эта 

— возможность обсуждается в следующем 

— разделе, 
null; 

end select; 
end loop; 
end COORDINATOR; 

task body STOP-INSPECTION is 
begin 
loop 

delay 12Ѳ.ѲѲ; 

INSPECT.TAKE-A-BREAK; 
end loop; 

end STOP-INSPECTION; 

task body INSPECT is 
INSP-PASSED : BOOLEAN; 

EXAM-TIME : DURATION; 

START-MANUFACT/ STOP-MANUFACT : TIME; 

DURATION-MANUFACT : DURATION; 
package DURATI0N_I0 is new FIXED-IO 
(DURATION); 

use DURATI0N_I0; 
begin 

— Как упоминалось ранее/ DURATION - это 
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— предопределенная часть предопределенного 

— окружения Ады. CLOCK - это одна из функ- 

— ций пакета CALENDAR/ она дает значение 

— текуцего времени (тип TIME) . 

START,MANUFACT CLOCK; 

INSP_PASSED INSP-RESULT; 

EXAM_TIME := PROBABILITY!INSPECTION); 
loop 

— Данный цикл призван обеспечить гарантии 

— того, чтобы проверка начиналась только в 

— том случае/ если имеются изделия/ подлежа- 

— цие проверке. 

— Здесь можно использовать задачу-буфер 

— (см. упр.З в конце главы), 
loop 

select 

accept PRODUCT; 
exit; 
else 

if MACH2-AVAIL > 0 
then 

MACH2—AVAIL := MACH2—AVAIL - 1; 
exit; 
end if; 

if MACH3-AVAIL > 0 
then 

MACH3-AVAIL == MACH3-AVAIL - 1; 
exit; 
end if; 
end select; 
end loop; 
delay EXAM_TIME; 
if INSP-PASSED 
then 

N—OF—FINISHED-PROD := N_OF_FINISHED-PROD 
+ 1; 

else 

N-OF-REJECTS := N-OF-REJECTS + 1; 

— К этим двум переменным имеют доступ 

— и некоторые другие задачи. Например/ 

— задача COORDINATOR может проверять 

— их значения для того/ чтобы устано- 

— вить/ следует ли остановить планиро- 

— вание обработки изделий, 
end if; 

EXAM-TIME := PROBABILITY!INSPECTION); 

INSP-PASSED == INSP-RESULT; 

exit when N-OF-FINISHED-PROD .* 200; 

— Должен ли контролер сделать перерыв ? 
if TAKE-A-BREAK'COUNT >0 

— Это условие будет истинным/ если 

— имеется ожидающий вызов. Это озна- 

— чает/ что пора сделать перерыв, 
then 

accept Т AKE-A-BRE АК; 
delay 15; 
end if; 

— Данный оператор if можно заменить на 
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— оператор отбора/ например: 

— select 

accept TAKE_A_BREAK; 
delay 15; 

— else; 

— null; 

— end select; 

end loop; 

— Здесь можно было бы использовать несколько 

— операторов прекращения задачи (см. следую- 

— ций раздел) для завершения приостановленных 

— задач/ ожидающих вызова. 

STOP_MANUF ACT == CLOCK; 

DURATION_MANUFACT := START-MANUFACT - 
STOP-MANUFACT; 

— Обратите внимание/ что операция пере- 

— крыта/ а из контекста Видно/ что она зада- 

— ется Функцией/ определенной в пакете CALENDAR. 

PUT (DURATION-MANUFACT/ 1Ѳ/ 2); 

end INSPECT; 
begin 

for I in 1 .. 200 

loop 

COORDINATOR.SCHED; 

end loop; 

— Предпринять попытку планирования изготов- 

— ления двухсот изделий. Фактически понадо- 

— бится изготовить больше изделий/ так как 

— некоторые из них будут забракованы, 
end PLANT-SCHED ; 

Работу различных задач программы PLANTJSCHED иллюстрирует рис. 10.3. На 
шаге 1 задача-координатор COORDINATOR только что обнаружила, что задача 
МАСН1 свободна, в то время как задача МАСН2 ожидает поступления заготовки 
изделия, а задача МАСНЗ пытается установить рандеву с задачей INSPECTOR. На 
шаге 3 все задачи работают независимо друг от друга. 

10.2.5. Операторы прекращения задачи abort 

В Аде есть средство для явного завершения задач -оператор прекращения задачи 
abort. Этот оператор состоит из зарезервированного слова abort; за ним следуют 
список имен задач, выполение которых нужно прекратить, и точка с запятой. Имена 
задач разделены запятыми. Например: 
abort TASK1, TASK2; 

Здесь должно быть прекращено выполнение задач TASK1 и TASK2. Вначале любая 
прекращаемая задача попадает в состояние аварийного завершения, которое является 
состоянием, предшествующим полному завершению. Задача, находящаяся в этом 
состоянии, больше не может участвовать в новых рандеву. Любая задача, зависящая от 
задачи, находящейся в состоянии аварийного завершения, сама попадает в это 
состояние, если трлько она уже не завершилась полностью. Однако задаче, находя¬ 
щейся в состоянии аварийного завершения, разрешено закончить рандеву, которое 
началось до попадания ее в это состояние. 

Если задача попадет в состояние аварийного завершения в то время, когда она 
приостановлена или находится в ожидании по оператору задержки, то она закончится 
немедленно. В противном случае эта задача закончится в момент достижения ею 
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Рис. 10.3. Возможные рандеву в программе PLANT_SCHED. 

некоторой точки синхронизации, такой, как зарезервированное слово end, другой 
оператор abort, начало или конец оператора accept, оператор select или обработчик 
исключительной ситуации (см. гл. 11). 

Задача может прекращать любую другую задачу, имя которой ей известно в 
соответствии с правилами видимости, включая саму себя. Это весьма мощное 
средство, использование которого программист должен тщательно обосновывать. 


10.3. РАЗДЕЛЯЕМЫЕ ПЕРЕМЕННЫЕ 

И ИНСТРУКЦИЯ ТРАНСЛЯТОРУ PRIORITY 

10.3.1. Разделяемые переменные 

Вообще говоря, не следует иметь две или более задачи, которые считывают и 
изменяют значение одной и той же переменной. Переменная, которая доступна для 
нескольких задач и значение которой может быть измененно этими задачами, называ- 
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ется разделяемой переменной 1) . Она может принять новые значения, в то время как 
некоторые из задач будут оперировать с другими (более старыми) ее значениями. Такая 
ситуация может возникнуть из-за того, что задачи независимы друг от друга и, как 
считается, выполняются параллельно. Единственный случай, когда две задачи могут 
получить доступ к одной и той же копии значения переменной,-это когда они 
синхронизированы.. 

Однако в каждой реализации языка Ада должны быть предусмотрены некоторые 
дополнительные правила, применяемые только к разделяемым переменным скалярных 
или ссылочных типов. Эти правила делают несколько менее непредсказуемым упот¬ 
ребление разделяемых переменных скалярного или ссылочного типа, так как они 
обеспечивают в конкретной реализации Ада соблюдение следующего условия. Если 
задача Т считывает разделяемую переменную в интервале между двумя соседними 
точками синхронизации, скажем, А и В, то никакой другой задаче не разрешается 
изменять значение этой переменной в период, когда задача Т прошла точку А и еще не 
дошла до точки В. Аналогично, если задача Т изменяет значение разделяемой 
переменной на интервале между А и В, никакой другой задаче не разрешается ни 
считывать, ни изменять значение этой разделяемой переменной в период, когда задача 
Т прошла точку А, но еще не дошла до В. 

Например, переменные N_OF_FINISHED_PROD и N OF REJECTS в программе 
PLANT_J5CHED являются разделяемыми переменными скалярного типа. Одну из них 
изменяет задача INSPECT. В соответствии с правилами, регулирующими использова¬ 
ние разделяемых переменных, никакая другая задача не сможет ни изменять, ни 
считывать значение переменной N_OF_FINISHED_PROD или N_OF_REJECTS в 
период, когда в задаче INSPECT будут выполняться операторы, расположенные между 
точкой синхронизации accept PRODUCT и следующей точкой синхронизации. Сле¬ 
дующей точкой синхронизации может быть та же самая точка accept PRODUCT, новая 
точка, например accept TAKE_A_BREAK или окончание задачи. В данном случае 
правила использования разделяемых переменных гарантируют правильность проверки 
в задаче COORDINATOR на нулевое количество забракованных изделий. Задаче 
COORDINATOR будет доступна только обновленная копия значения переменной 
N_OF_REJECTS, что предотвращает планирование изготовления большего числа 
изделий, чем требуется. 

Обратите внимание, что в последней версии задачи LOOKING_FOR_BANKS 
(см. разд. 10.2.) переменные CHANGE_HEAD и CHANGE_BANK_REC не являются 
разделяемыми, так как только задача LOOKING_FOR_BANKS может обращаться к 
ним. Поэтому другие задачи не могут помешать обновлению элементов файла 
BANK FILE. Если же эти переменные комбинированного типа сделать доступными 
для других задач (например, объявив их перед всеми спецификациями задач програм¬ 
мы GATHER BANK STATISTICS), то правила, регулирующие использование скаляр¬ 
ных и ссылочных разделяемых переменных, не будут действовать. В этом случае 
изменение упомянутых структур приведет к еще более непредсказуемым последствиям. 

В ряде случаев, однако, употребление разделяемых переменных представляется 
оправданным. Рассмотрим, к примеру, программу POSTING_PROC из гл. 8. В этой 
программе можно использовать несколько задач-быть может, по одной задаче на 
каждый день, когда совершались сделки. Поэтому можно будет перейти к парал¬ 
лельной регистрации сделок. Регистрация начинается параллельным считыванием из 
файла TRANS_FILE сведений о нескольких днях, а заканчивается записью соответст¬ 
вующих номеров сделок в элементы файла, ассоциируемые с банками, участвующими в 
сделке. 

Опять-таки можно представить, что при регистрации сделок будет работать 


Ее также называют общей нелокальной переменной.- Прим, перев. 
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несколько задач, обслуживающих одновременно несколько банков. Можно исполь¬ 
зовать переменную, которая потребуется каждой задаче, выполняющей регистрацию в 
файле BANK FILE. Эта переменная должна содержать значение, отражающее послед¬ 
нее размещение элементов файла BANKJFILE, с тем, чтобы правильно записывать 
данные о сделках для конкретных банков. Было бы, однако, ошибкой использовать 
только функцию SIZE, так как к тому моменту, когда задача будет готова записать 
новый элемент в файл BANK_FILE, размер файла уже может отличаться от первона¬ 
чально используемого размера. В качестве альтернативного способа решения этой 
проблемы может служить введение другой задачи, целиком ответственной за разме¬ 
щение новых элементов в файле BANK_FILE. Это иллюстрируется следующим 
примером. 

Пример. Для данного примера выбрана задача POST_INDIV_BANK из программы 
POSTING_PROC (см. гл. 8). Она переписана как тип «задача». Вначале представим 
текст задачи OBTAIN, 
task OBTAIN is 

— Эта задача выдает позицию в файле для 

— нового элемента. 

entry FILE-ELEM ( FORM-TR-POS : out POSITIVE-COUNT); 
end OBTAIN; 

task body OBTAIN is 

DUMMY_BANK_REC : BANK_REC<POSTING-DATA) := 

( POSTING-DATA, (1 .. 12) => <0,0,1), 0); 

— Эта структура нужна для записи в Файл пустого 

— элемента. 
begin 

accept FILE-ELEM <F0RM_TR_P0S = out POSITIVE-COUNT) 
do 

if SIZE<BANK-FILE) <= GLOBAI_N0_0F_BANKS 

then 

FORM-TR-POS := GL0BAL_N0_0F_BANKS + 1; 
else 

F0RM_TR_P0S : = SIZE(BANK-FILE) + 1; 
end if; 

WRI ТЕ < BANK-FILE, DUMMY-BANK-REC, FORM_TR_POS); 

— Запись пустого элемента. 

end; 

end OBTAIN; 


Теперь преобразуем задачу POST INDIV BANK из программы POSTING_PROC в 
тип «задача» с именем PARALLEL_POST_INDIV_BANK. При этом используем задачу 
OBTAIN. 

task type PARALLEI_POST.INDIV-BANK is 

entry TRANSACT (FORM-TRANS = TRANS-NUMBER; 

FORM-BANK . STRING <1..20)); 
end PARALLEL-POST-INDIV-BANK; 

task body PARALLEL-POST-INDIV-BANK is 

BK-POS, TR-POS, SAVE-TR-POS : POSITIVE-COUNT; 

BK-FOUND = BOOLEAN; 

ANY-BANK : STRINGd. .20); 

ANY-TRANS : TRANS-NUMBER; 

ANY-BANK-REC : BANK-REC; 

ANY-POST-REC : BANK-REC; 
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WRK_POST_INFO : POST-INFO; 
begin 

accept TRANSACT (FORM-TRANS = TRANS-NUMBER; 

FORM-BANK STRING ) 
do 

— Копирование значений Формальных параметров/ 

— которые будут использоваться в задаче. 

ANY-BANK == FORM-BANK; 

ANY-TRANS := FORM-TRANS; 
end; 

RETRIEVE (ANY-BANK/ ВК -POS/ BK-FOUND); 
if BK-FOUND 
then 

READ (BANK-FILE/ ANY-BANK-REC, BK-POS); 
if ANY-BANK-REC.FIRST-TRAN = О 
then 

— Это условие будет истинно/ если для данного 

— банка не зарегистрировано ни одной сделки. 
OBTAIN.FILE-ELEM ( TR-POS ); 

— Этот оператор заменяет оператор "if"/ уста- 

— навливавший положение последнего элемента 
— Файла. 

ANY-BANK-REC . FIRST-TRAN ,* TR-POS; 

ANY-BANK-REC.LAST-TRAN = = TR-POS; 

ANY_BANK_REC.LAST-POS : = 1; 

WRK—POST-INFO := (ANY-TRANS/ 

2 .. 12 => (1/1/1)); 

ANY-POST-REC ,= (POSTING-DATA,WRK-POST-INFO/O); 
else 

if ANY-BANK-REC.LAST-POS ■ 12 
then 

— Здесь задается целиком строка регист- 

— рационной информации. Оператор 
— TR-POS i= SIZE(BANK-FILE) + 1; 

— заменяется на следующие операторы: 

ОВТАI N . FILE-ELEM ( TR-POS ); 

READ(BANK-FILE, ANY_POST_REC, 

ANY-BANK-REC.LAST-TRAN); 

ANY-POST-REC.NXT-PST-LINE := TR-POS; 

WRITE(BANK-FILE, ANY-POST-REC, 

ANY-BANK-REC.LAST-TRAN); 

ANY-BANK-REC.LAST-TRAN := TR-POS; 

ANY-BANK-REC.LAST-POS == 1; 

WRK-POST-INFO := (ANY-TRANS, 

2 .. 12 => (1,1,1)); 

ANY-POST-REC == ( POSTING-DATA, 

WRK_POST_INFO, Ѳ ); 

else 

— Здесь есть место. 

TR-POS := ANY-BANK-REC.LAST-TRAN; 

READ ( BANK-FILE, ANY-POST-REC, 

ANY_BANK_REC.LAST-TRAN); 

ANY_BANK_REC.LAST-POS = = 

ANY-BANK-REC.LAST-POS + 1; 

ANY-POST-REC.POSTING_LINE ( 

ANY-BANK-REC.LAST-POS ) «- ANY-TRANS; 


end if; 
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end if; 

WRITE ( BANK-FILE/ ANY_BANK_REC, BK-POS ); 
WRITE ( BANK_FILE, ANY-POST-REC, TR-POS ); 
else 

PUT(" Bank not found "); 

PUT( ANY-BANK ); 
end if; 

end PARALLEL-POST-INDIV-BANK; 


10.3.2. Программа, в которой употребляются 
разделяемые переменные 

В следующей программе показано, как можно практически использовать типы 
«задача» и ссылочные типы, указывающие на объекты «задача». Эта программа 
представляет собой модификацию программы POSTING_PROC, при которой поль¬ 
зователю разрешается генерировать столько регистрирующих задач, сколько имеется 
дней, в которые заключались сделки. 

Программа SEVERAL-POSTING PROC 
with TEXT-IO; use TEXT-IO; 
with TRANSACTION-RESOURCES; 
use TRANSACTION-RESOURCES; 
with BANK-RESOURCES; use BANK-RESOURCES; 

— Предполагается, что эти пакеты/ определенные 

— в гл. 8/ оттранслированы и доступны данной 

— программе. 

procedure SEVERAL-POSTING-PROC is 

package INT-IO is new INTEGER_I0<INTEGER); 
use INT-IO; 

CURR_TRANS_REC_1, CURR-TRANS-REC-OTHER : 

TRANS-REC; 

YY_AND_MM = STRINGd .. 4); 

MM-ONLY : STRINGd ..2); 

EXT-NAME = STRINGd ..8); 

WORK-POSITIVE = NATURAL; 

CURR-TRANS-HEADER = TRANS-HEADER; 

CURR-TRANS-INDEX : POSITIVE-INDEX; 

NO-OF-DAILY_JOBS , NATURAL; 

— До этой точки прежние об'явления остаются 
— без изменений. 

procedure POST-BNK-PAR ( FORM-TRANS-REC = TRANS-REC; 

FORM-DAY : NATURAL) is 

LOCAI_FULI_TRANS-NO : TRANS-NUMBER; 

begin 

— Сюда следует поместить последовательность 

— операторов процедуры POST-BNK из программы 
— POSTING-PROC . 

end POST_BNK_PAR; 

task type DAY-POSTING is 

— Этот тип "задача" будет использоваться при 

— генерировании задач-об'ектов/ по одной на 

— каждый день. Задачи будут запускаться для 

— считывания данных о сделках дня. 

entry GET-THIS-DAY (I = INTEGER range 1..31); 
end DAY-POSTING; 
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type DAY_POST_PTR is access DAY-POSTING,’ 

— Этот ссылочный тип указывает на тип задач 

— DAY-POSTING. 

type MONTHLY-COLLECTION_OF_JOBS is array 
<1 .. 31) of DAY—POST—PTR ;. 

— Это - регулярный тип, элементы которого служат 

— указателями на задачи. 

ACT-MONTHLY-JOB = MONTHLY-COLLECT I ON_OF_ JOBS; 
task body DAY-POSTING is 

— Данное тело задачи представляет собой модифи- 

— кацию наиболее глубоко вложенного цикла 

— исполняемой части процедуры POSTING-PROC . 

— Вначале обозначение дня запоминается с помоцью 

— переменной THIS-DAY . Затем считываются все 

— сделки, соответствующие дню THIS-DAY, а соот- 

— ветствующая информация передается для обра- 

— ботки в процедуру POST-BNK-PAR . Здесь более 

— удобным было бы применить задачу-буфер, что, 

— возможно, позволило бы отказаться от создания 

— большой очереди приостановленных задач. 

THIS-DAY-TRANS-HEADER : TRANS-HEADER ; 
THIS_DAY_TRANS_INDEX = POSITIVE-INDEX; 

THIS-DAY = INTEGER range 1.. 31; 

DAILY-TRANS-REC = TRANS-REC; 
begin 

, accept GET-THIS-DAY(I : INTEGER range 1 .. 31) 
do 

— Зарегистрируем сделки этого дня. 

THIS-DAY =1; 
end GET-THIS-DAY; 

THIS_DAY-TRANS-HEADER := 

CURR-TRANS—REC—1.HEADER-LINE.TRANS-STATUS 
(THIS-DAY); 

TH IS-DA Y-TRANS-1NDEX .• = 

THIS_DAY_TRANS_HEADER.FIRST-TRANS; 
if THIS-DAY-TRANS-INDEX /= 1 
then 

READ(TRANS-FILE, DAILY-TRANS-REC, 
THIS_DAY_TRANS_INDEX); 

— Прочитана информация о первой сделке дня. 
while DAILY-TRANS-REC.REG-LINE.TRAN-NEXT /= 0 
loop 

— Здесь вызывается процедура POST_BNK_PAR. 
POST_BNK_PAR (DAILY-TRANS-REC, THIS-DAY); 

THIS-DAY-TRANS-INDEX := 

DAILY-TRANS-REC.REG_LINE.TRAN-NEXT; 

READ(TRANS-FILE, DAILY-TRANS-REC, 
THIS_DAY_TRANS_INDEX); 
end loop; 

— Следующий вызов выполняется только для 
— последней сделки. 

POST-BANK-PAR (DAILY-TRANS-REC, THIS-DAY) ; 
end if; 

— Конец задачи, 
end DAY-POSTING; 

— Сюда следует поместить спецификацию и тело задачи 
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— PARALLEL-POST-INDIV-BANK, а также спецификации и 

— тела задан/ работающих с буфером (см. упр.5 в 

— конце данной главы). 
begin 

GET ( YY-AND-MM ); 

MM-ONLY == YY-AND-MM ( 3 . . 4 ); 
if YY_AND_MM < "8601" or YY_AND_MM > “8612“ 
then 

PUT (" Bad date "); 
else 

EXT-NAME := "FY“ & YY_AND—MM ic “ DAT"; 
if not TRANS-IO.IS_0PEN<TRANS-FILE) 
then 

TRANS-IO.OPEN(FILE => TRANS-FILE/ 

MODE => INOUT-FILE, 

NAME => EXT-NAME, 

FORM => 

READ<TRANS_FILE, CURR_TRANS_REC_1, 1); 
end if; 

NO-OF—DAILY_JOBS := O; 
for I in 1 .. 31 
loop 

CURR-TRANS-HEADER .- = 

CURR—TRANS—REC—1.HEADER-LINE.TRANS-STATUS(I); 

CURR-TRANS_INDEX = = 

CURR-TRANS-HEADER.FIRST-TRANS; 
if CURR-TRANS-INDEX /= 1 
then 

— Результат будет равен TRUE, если для за- 

— данного дня имеются сделки. В этом слу- 

— чае запустится соответствующая задана. 

ACT-MONTHLY-JOBS (I) == new DAY-POSTING; 

NO-OF-DAILY_JOBS := N0_0F_DAILY_J0BS + 1; 

— Здесь не приводится полный текст прог- 

— раммы, счетчик количества активных задач 

— можно использовать для того, чтобы уста- 

, — новить момент окончания регистрации 

— всех сделок, 
end if; 

end loop; 
end if; 

— Файлы будут закрыты только после окончания ре- 
— гистрации всех сделок. 

TRANS- IО. CLOSE ( TRANS-FILE ); 

BANK-I О. CLOSE ( BANK-FILE); 
end SEVERAL-POSTING-PROC; 

10.3.3. Инструкция транслятору PRIORITY 

Инструкция PRIORITY может применяться для указания степени срочности 
выполнения какой-либо задачи на Аде. Форма инструкции: 
pragma PRIORITY (статическое_выражение); 

Инструкция PRIORITY может появляться в спецификации задачи только один раз. 
Результатом вычисления статического_выражения должно быть целое число, попадаю¬ 
щее в диапазон значений подтипа PRIORITY из предопределенного пакета SYSTEM 
(см. приложение В). Чем выше значение приоритета задачи, тем более неотложным 
является ее выполнение. 
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Рис. 10.4. Иллюстрация к упр. 3. 

Степень срочности задачи, указываемая в инструкции PRIORITY, служит инфор¬ 
мацией для конкретной системы и помогает ей принять решение о том, какие задачи 
следует выполнять, если доступные вычислительные ресурсы не позволяют обеспечить 
одновременное выполнение всех активных задач. Таким образом, ни в какой конкрет¬ 
ной реализации не допускается выполнение задачи с низким приоритетом в то время, 
как задача с высоким приоритетом претендует на выполнение. (Здесь предполагается, 
что обеим задачам требуются одни и те же ресурсы.) 


УПРАЖНЕНИЯ 

1. Модифицируйте программу GATHER BANKJSTATISTICS таким образом, чтобы она 
принимала вызовы только после проверки того, что по крайней мере один из файлов FILE1 и 
FILE2 открыт. При этом следует убрать части текста, обрабатывающие значение, служащее 
признаком конца файла («12345678901234567890»). 

2. Перепишите программу GATHER_BANK_STATISTICS с использованием атрибутов 
задач и пакета CALENDAR. Программа должна выдавать информацию о среднем времени 
ожидания для вызовов от задач CHECK_FILE_1 и CHECK_FILE_2. 

3. В программе PLANT_SCHED (см. разд. 10.2) в начале членов «последовательность_опе- 
раторов» в задачах МАСН1, МАСН2, МАСНЗ и INSPECT применяются циклы. Роль этих 
циклов-гарантировать то, чтобы каждая задача продолжала независимое выполнение полезных 
действий, даже если немедленное установление рандеву окажется невозможным. Альтернативным 
и, возможно, лучшим способом реализации такой гарантии было бы наличие задачи-буфера, 
обеспечивающей связь задач МАСН1 и МАСН2 (назовем ее STAND_BETWEEN_1 _N_2) и еще 
одной задачи-буфера, связывающей INSPECT с МАСН2 или МАСНЗ (назовем ее INSPECTION_ 
STAND). После завершения действий по МАСН1 первая задача-буфер должна вызвать вход 
задачи STAND_BETWEEN_1_N_2 и зарегистрировать еще одну заготовку изделия, предназна¬ 
ченную для обработки в МАСН2. (Здесь, по всей видимости, надо употребить обычный счетчик.) В 
свою очередь задача МАСН2 должна обладать способностью независимо устанавливать рандеву 
с задачей STAND_BETWEEN_1_N_2 и решать, стоит ли начинать обработку следующей заготов¬ 
ки изделия, если она имеется. Аналогичные соображения относятся и к задаче INSPECTION_STAND. 
Взаимосвязи между новыми задачами иллюстрирует рис. 10.4. 

4. Предположим, что все 200 заготовок изделий (см. производственную задачу из разд. 10.2) 
«ожили» и каждая из них стала представлять собой независимую задачу, которая стремится, 
чтобы ее выполнили. Эти задачи должны вызывать по цепочке либо МАСН1, МАСН2 и INSPECT, 
либо МАСНЗ и INSPECT. Разумеется, если изделие будет забраковано, то цепочку вызовов 
следует повторить. Перепишите программу PLANT_SCHED с использованием этого нового 
подхода. При этом реализуйте новое условие: ни одно изделие не должно выдавать запрос на 
обработку, если перед ним уже находятся в ожидании исполнения три вызова. Возможно, здесь 
следует использовать типы «задача» для обозначения изделий и ссылочные типы, обеспечивающие 
доступ к объектам типа «задача» для этих изделий. 

5. Включите задачу OBTAIN и задачу DAY_POSTING (см. разд. 10.3) в текст новой версии 
программы SEVERAL_POSTING_PROC. Внесите другие необходимые изменения. 
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Исключительные ситуации 


11.1. ОБЪЯВЛЕНИЕ И ВОЗБУЖДЕНИЕ 
ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЙ 


В Аде имеются средства, позволяющие обрабатывать во время выполнения 
программы ошибки и специально выбранные программные события. Это-механизм 
исключительных ситуаций. Если происходит ошибка или специально выбранное 
программное событие, то нормальное последовательное выполнение операторов пре¬ 
рывается и выдается сигнал об ошибке или о событии. Этот процесс называется 
возникновением (или возбуждением) исключительной ситуации. Действия, предприни¬ 
маемые при возникновении исключительной ситуации, называются обработкой исклю¬ 
чительной ситуации. Программист может управлять этими действиями посредством 
объявления исключительных ситуаций и с помощью специальных участков программы 
на Аде, называемых обработчиками исключительных ситуаций. Исключительные 
ситуации могут возникать непредусмотренно из-за непредвиденных ошибок и особых 
случаев. Но они могут также возбуждаться преднамеренно во время выполнения 
оператора raise. Об этом будет сказано далее в настоящем разделе. 


11.1.1. Предопределенные исключительные ситуации 
и исключительные ситуации, 
определяемые пользователем 


Некоторые исключительные ситуации в Аде предопределены. Они обычно связаны с 
ошибками, наиболее часто встречающимися при выполнении программ. Ниже приве¬ 
ден список этих ситуаций: 


Ошибка 

CONSTRAINT_ERROR 

(Нарушение_уточнения) 


NUMERICJERROR 

(Числовая_ошибка) 


PROGRAM.ERROR 

(Программная_ошибка) 


Условия возникновения исключительной ситуации 

- Нарушены диапазон значений, дискриминант или уточ¬ 
нение границ массива, включая попытку использования 
компоненты структуры, недопустимой для заданного 
значения дискриминанта 

- Предпринимается попытка использовать составное имя, 
индексированную компоненту, вырезку из массива или 
атрибут объекта, на который можно указать с помощью 
ссылочного значения, однако при этом фактическое ссы¬ 
лочное значение -null 

- При выполнении предопределенной числовой операции 
не получается правильный результат (точный смысл 
этой исключительной ситуации будет зависеть от конк¬ 
ретной реализации языка Ада и может включать целое 
переполнение, деление на ноль или плавающее перепол¬ 
нение) 

- При преобразовании значений одного типа к другому 
произойдет выход за границы диапазона значений 

- Выполняется вызов подпрограммы, запуск задачи или 
обработка родовой конкретизации до того, как обрабо- 
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STORAGE_ERROR 

(Нетламяти) 


TASKING.ERROR 

(Ошибка_задачи) 


таны соответствующие тела 

- В процессе вычисления функции достигается ключевое 
слово end (а не return, как надо бы) 

При выполнении оператора селективного ожидания все 
альтернативы закрыты, а else -альтернатива отсутствует 
В случаях, обнаружение которых необязательно для 
Ады, исключительная ситуация определяется конкрет¬ 
ной версией языка. Например, программист полагается 
на какую-то определенную реализацию процессов, о 
которых в описании Ады говорится, что на такую 
реализацию надеяться нельзя (в частности, согласование 
формальных и фактических параметров, которое в раз¬ 
ных версиях Ады может быть реализовано с помощью 
разных механизмов) 

- Не хватает памяти для выполнения программы (допол¬ 
нительная память может выделяться во время выполне¬ 
ния программы при обработке объявлений, при запуске 

• задач и при создании нового объекта при помощи 
генератора) 

- Во время обмена информацией между задачами проис¬ 
ходят определенные события (примеры см. разд. 11.3) 


Все перечисленные предопределенные исключительные ситуации входят в состав пакета 
STANDARD (см. приложение В). 

Существуют также предопределенные исключительные ситуации ввода-вывода, 
определенные в пакете ІО EXCEPTIONS. Они связаны с пакетами ввода-вывода Ады 
(см. приложение В), и о них будет рассказано в разд. 11.2. 

Помимо предопределенных исключительных ситуаций, в Аде есть также исклю¬ 
чительные ситуации, определяемые пользователем. Эти последние ситуации програм¬ 
мист обязан объявлять. Форма объявления исключительных ситуаций такова: 


Сп исоклмен_исключительных ситуаций: exceptions ; 
Например: 

ALARM_1 : exception; 

EMPTY.FILE, UNEXPECTED.END_OF_FILE : exception; 


После записи объявления исключительной ситуации, определяемой пользовате¬ 
лем, ее можно возбудить в том случае, когда произойдут некоторые заранее выбранные 
программные события. Предопределенные исключительные ситуации не нуждаются в 
объявлениях. 


11.1.2. Обработчики исключительных ситуаций 

Как было упомянуто выше, после возникновения исключительной ситуации 
управление передается на обработчик, предусмотренный для этой ситуации. Наличие 
или отсутствие такого обработчика определяется намерениями программиста. Если 
обработчик имеется, то он должен размещаться в конце оператора блока или в конце 
тела подпрограммы, пакета или задачи. 

В программах, приведенных в предыдущих главах, обработчики исключительных 
ситуаций отсутствовали. Как следствие этого, возбуждение любой предопределенной 
исключительной ситуации неизбежно должно было бы приводить к прекращению 
выполнения программы и к распространению этой исключительной ситуации на 
вызывающую среду. Иными словами, если в процедуре или, скажем, функции возбу¬ 
дится исключительная ситуация, а обработчика для этой ситуации там нет, то 
исключительная ситуация станет возбуждаться в вызывающей подпрограмме и т. д. до 
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тех пор, пока не будет достигнута главная программа ( или пока не встретится 
необходимый обработчик исключительной ситуации. Если будет достигнута главная 
программа, а нужный обработчик не найден, то главная программа завершится и 
выдаст диагностическое сообщение. Описанный процесс происходил бы в программах 
из предыдущих глав при возникновении любых предопределенных исключительных 
ситуаций, поскольку обработчики таких ситуаций в этих программах отсутствуют. 

Спецификация обработчиков исключительных ситуаций очень похожа на оператор 
выбора case и имеет вид: 

when 

имена_исключительных_ситуаций = > последовательность операторов 

-- Здесь можно задать еще один или несколько вариантов 
выбора, аналогичных приведенному выше. Можно указать 
и альтернативу others («во всех остальных случаях»). 

Перед самими обработчиками исключительных ситуаций ставится зарезервированное 
слово exception. После обработчиков помещается слово end, которое отмечает конец 
оператора блока, конец подпрограммы, задачи или пакета, содержащего обработчик 
исключительной ситуации. 

В качестве примера можно привести такой обработчик исключительных ситуаций 
(в предположении, что сами исключительные ситуации были объявлены раньше): 

exception 

when NUMERIC-ERROR => PUT<“ Bad computation "); 
when ALARM-1 => PUTC Call police “>; 

when others => PUT(“ Unexpected error "); 

end; 


Как и в случае оператора case, альтернатива others разрешена только для 
последнего обработчика, и она охватывает все прочие исключительные ситуации 
(предопределенные и объявленные программистом), не упомянутые в предыдущих 
обработчиках. 

11.1.3. Оператор возбуждения исключительной 
ситуации raise 

Оператор raise можно использовать для передачи управления обработчику иск¬ 
лючительных ситуаций. Он имеет вид 
raise имя_исключительной ситуации; 

Если оператор raise находится внутри обработчика исключительной ситуации, то при 
некоторых условиях он может принимать форму: 
raise ; 

Пример оператора возбуждения: 
raise ALARM 1; 

Оператор raise, за которым следует имя_исключительной_ситуации, возбудит наз¬ 
ванную ситуацию. Если имеется соответствующий обработчик, то он получит управ¬ 
ление. В противном случае исключительная ситуация будет распространяться по 
цепочке вызовов. 

Вторая форма оператора raise предназначена для повторного возбуждения той же 
самой исключительной ситуации, которая уже вызвала передачу управления обработ¬ 
чику. 
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11.1.4. Программа, в которой применяются 

обработчики исключительных ситуаций 

Здесь на примере модификации программы DAY_CONVERSION из разд. 1.4 
иллюстрируется обработка исключительных ситуаций. Программа считывает из вход¬ 
ного файла несколько строк, в каждой из которых содержится номер дня по 
Юлианскому календарю и день недели (от MON (понедельник) до SUN (воскресенье)), 
на который выпало первое января в искомом году. Для каждой входной строки будет 
выведен день недели, соответствующий указанному номеру дня. Признаком конца 
данных служит строка с номером дня 0. 

Программа EXC_DAY_CONVERSION 

with TEXT-10; use TEXT-IO; 
procedure EXC-DAY-CONVERSION is 

type DAY is <MON/TUE/WED/THU/FRI/SAT/SUN); 
package INT-IO is new INTEGER-10(INTEGER); 
use INT-IO; 

package DAY-IO is new ENUMERATION—10<DAY); 
use DAY-IO; 

type JULIAN is range 1 .. 366; 

JULIAN-DAY : JULIAN; 

CURRENT-DAY, FIRST-JAN-DAY : DAY; 

CURRENT_DAY-POS : INTEGER; 

— Дальше располагаются два новых об'явления, 

— отсутствующе в тексте исходной программы. 

IN-DAY : NATURAL; 

BAD-IN-DAY : exception; 

— Данная исключительная ситуация будет возникать 

— в том случае, когда значение переменной IN-DAY 

— будет превышать 366. 
begin 

GET<IN-DAY, 3); 

— Если значение IN-DAY окажется отрицательным, 

— то возникнет исключительная ситуация, 
while IN-DAY /= Ѳ 

loop 

if IN-DAY > 366 
then 

— Пример использования оператора возбуждения 

— исключительной ситуации raise . 
raise BAD-IN-DAY; 

else 

—** Начало последовательности операторов, иден- 

— тичных операторам из программы DAY-CONVERSION. 
JULIAN-DAY : IN-DAY; 

— Если значение величины типа IN-DAY выйдет за 

— пределы диапазона 0 .. 366, то возникнет 

— исключительная ситуация CONSTRAINT-ERROR. 

GET(FIRST-JAN-DAY) ; 

CURRENT_DAY-POS .= JULIAN-DAY mod 7 + 

DAY'POS < FIRST_JAN-DAY); 
if CURRENT-DAY-POS > 7 
then 

CURRENT_DAY_POS == CURRENT-DAY-POS - 7; 
end if; 

CURRENT-DAY .= DAY'VAL(CURRENT-DAY-POS); 
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— Если значение переменной CURRENT-DAY-POS 

— выйдет за пределы диапазона 1 .. 7/ то 

— возникнет исключительная ситуация 

— CONSTRAINT-ERROR (хотя в данном операторе 

— такая ошибка возникнуть не может). 

NEW-LINE/ 

PUT(" This Julian day falls on a "); 

PUT < CURRENT_DAY) / 
if CURRENT_DAY not in Mon .. Fri 
then 

PUT<" is a weekend")/ 
else 

PUT(" is a working day "); 
end if; 

—** Конец последовательности операторов/ 

— идентичных операторам программы 
— DAY-CONVERSION . 
end if / 

SKIP-LINE; 

GET(IN-DAY/ 3); 
end loop; 
exception 

when NUMERIC-ERROR I CONSTRAINT-ERROR 

=> PUT<" Numeric error or “)) 
PUTC'Constraint error")/ 
when BAD-IN-DAY => PUT<" Bad julian day ">; 

when others => 

— ВОЗМОЖНО/ что во вход- 
— ных данных есть ошибки. 
PUT<" Other error ”)) 


end EXC-DAY-CONVERSION / 


11.1.5. Возбуждение исключительных ситуаций 

Обратите внимание, что одна и та же исключительная ситуация может быть 
возбуждена в разных местах программного сегмента. Например, в предыдущей 
программе отмечены по крайней мере две точки, в которых может возникнуть ситуация 
CONSTRAINT-ERROR. Следовательно, в этой программе могут быть сложности с 
определением того, в каком именно месте возникла исключительная ситуация. Эту 
трудность можно преодолеть, если поместить критически важные с этой точки зрения 
операторы в отдельные подпрограммы или операторы блока. Такой вариант действий 
будет показан в следующем разделе. 

Исключительные ситуации могут возбуждаться либо во время выполнения опера¬ 
торов (как в предыдущей программе), либо во время обработки объявлений. Если 
исключительная ситуация возникает в процессе обработки декларативной части тела 
пакета, блока, подпрограммы или в процессе обработки объявления пакета, то 
обработка прекращается и та же самая исключительная ситуация возбуждается 
повторно, т. е. распространяется. При этом действуют следующие правила: 

- если первоначальная исключительная ситуация возникла при обработке декла¬ 
ративной части подпрограммы, то повторная исключительная ситуация возбуждается 
в точке вызова подпрограммы. Если эта подпрограмма является главной программой 
на Аде, то выполнение ее заканчивается; 

- если первоначально исключительная ситуация возникла в блоке, то затем она 
возбуждается непосредственно после этого блока; 
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- если тело или объявление пакета входит в декларативную часть, то исключи¬ 
тельная ситуация возбуждается во внешней декларативной части; 

- если тело пакета является телом подсегмента, то исключительная ситуация 
возбуждается в месте расположения соответствующей заглушки; 

- если тело или объявление пакета является библиотечным сегментом, то завер¬ 
шается выполнение главной программы. 

Если исключительная ситуация возникнет при обработке тела задачи, то обработка 
прекратится, а задача завершится. В точке запуска задачи возбуждается исключитель¬ 
ная ситуация TASKING_ERROR. Если же исключительная ситуация возникнет во 
время обработки объявления задачи, то эта ситуация распространится на внешнюю 
декларативную часть. Дальнейшие подробности, касающиеся обработки исключитель¬ 
ных ситуаций задачами во время выполнения их операторов, будут приведены в разд. 
11.3. 

11.1.6. Подавление проверок 

Как говорилось ранее, в Аде есть ряд предопределенных исключительных ситуа¬ 
ций, охватывающих множество возможных событий. К таким ситуациям относится, 
например, CONSTRAINT ERROR. В некоторых случаях пользователь может поже¬ 
лать предотвратить возбуждение какой-то конкретной исключительной ситуации для 
заданных видов событий или для нужных типов в пределах сегмента. Выполнение 
некоторых проверок, производящихся во время выполнения программ, можно забло¬ 
кировать при помощи инструкции SUPPRESS (Подавить). Форма этой инструкции: 
pragma SUPPRESS (название проверки); 

Если, вдобавок, программист захочет применить это указание только к конкретному 
объекту, типу, подпрограмме и т.д., то указание принимает вид 
pragma SUPPRESS (название_проверки, ON = > имя); 

Перечислим некоторые из названий_проверок для исключительной ситуации 
CONSTRAINT_ERROR: 

Название Применение 

ACCESS-CHECK. По отношению к составным именам, индексированным 

(Проверка ссылок) компонентам, вырезкам из массивов или к атрибутам 

объекта, на которые указывает ссылочное значение 
DISCRIMINANT CHECK По отношению к значениям дискриминанта; определяет, 
(Проверка_дискриминанта) допустимо ли представленное значение для заданного 

типа уточнения или существует ли оно для данного 
объекта комбинированного типа 

INDEX-CHECK По отношению к границам массивов или к значениям 

(Проверка-индекса) индексов компонент массивов 

LENGTH-CHECK По отношению к компонентам, нуждающимся в согласо- 

(Проверка—длины) вании, например при присваивании массивов 

RANGE-CHECK По отношению к значениям, для которых требуется про- 

(Проверка..диапазона) верка их диапазона, к подтипам, которые обрабатывают¬ 

ся, к значениям индексов и дискриминантов, требующих 
проверки соответствия для данного подтипа и т.д. 

Приведем некоторые из названий-проверок для предопределенной исключитель¬ 
ной ситуации NUMERIC-ERROR: 

Название Условие выполнения 

DIVISION-CHECK Второй операнд в операциях /, rem или mod равен нулю 

(Проверка_деления) 

OVERFLOW-CHECK Результат числовой операции приводит к переполнению 

(Проверка_переполнения) 
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Инструкция SUPPRESS, если она используется, должна находиться в первых 
строках декларативной части или спецификации пакета. Следует также иметь в виду, 
что эта инструкция липа дает разрешение транслятору отменить заданную проверку. 
Это разрешение может быть не учтено транслятором. Он может не принимать во 
внимание это указание для тех видов проверок, отмена которых может обойтись 
слишком дорого. 

Пример этой инструкции: 
pragma SUPPRESS (RANGE-CHECK); 

Здесь транслятору предоставляется право отменить проверку RANGE_CHECK вооб¬ 
ще. Другой пример: 

pragma SUPPRESS (ACCESS-CHECK, ON => DATE); 

Здесь транслятору разрешается отменить проверку ACCESS_CHECK для всех объек¬ 
тов типа DATE. 

11.2. ИСКЛЮЧИТЕЛЬНЫЕ СИТУАЦИИ ВВОДА-ВЫВОДА. 
ПАКЕТ IO_EXCEPTIONS 

В пакете IO_EXCEPTIONS собраны все исключительные ситуации, определенные 
для пакетов ввода-вывода SEQUENTIAL_IO, DIRECT- ІО и TEXT JO. Приведем 
список исключительных ситуаций ввода-вывода из пакета ІО -EXCEPTIONS и их 
краткое описание. 


Исключительная ситуация 

STATUS-ERROR: exception; 
(Ошибка состояния) 


MODE_ERROR: exception; 
(Ошибка _режима) 


NAME_ERROR: exception 
(Ошибка_в_имени) 


USE-ERROR: exception 
(Ошибка_использования) 


- Предпринимается попытка использовать функции 
MODE, FORM и NAME, или процедуры READ, 
WRITE, RESET и DELETE, или им подобные при 
открытом файле 

- Делается попытка повторного открытия уже открыто¬ 
го файла 

- Программа пытается считывать данные из файла с 
режимом обмена OUT-FILE (выходной) 

- Программа пытается определить наличие состояния 
«конец файла» для выходного файла 

- Программа пытается выводить данные в файл с ре¬ 
жимом обмена IN-FILE (входной) 

При использовании пакета ТЕХТ_ІО 

- Попытка вызова для работы с выходным файлом 
следующих подпрограмм: SET-INPUT, SKIP-LINE, 
END-OF-LINE, SKIP-PAGE и END_OF_PAGE 

- Попытка вызова для работы с входным файлом таких 
подпрограмм: SET-OUTPUT, SET-LINE_LENGTH, 
SET-PAGE_LENGTH, LINE-LENGTH, PAGE- 
LENGTH, NEW-LINE и NEW-PAGE 

- Строка, представляющая фактический параметр для 
процедур CREATE или OPEN, не позволяет уста¬ 
новить связь с внешним файлом. Например, строка 
может оказаться неприемлемой из-за наличия в ней 
специальных символов или из-за того, что параметры, 
указанные в процедуре OPEN, не согласуются ни с 
каким из существующих внешних файлов 

- Наступление некоторых событий, несовместимых с 
характеристиками внешнего файла. Например, про¬ 
грамма пытается создать с помощью процедуры 
CREATE новый файл, и параметр, указывающий ре- 



жим работы с файлом, задан как IN_FILE, а файл 
располагается на устройстве, обеспечивающем только 
выходные файлы 

- В программе используется фактический параметр 
FORM, несовместимый с параметром FORM, исполь¬ 
зованным при создании файла 

- Обнаружение некоторых видов сбоев аппаратуры во 
время выполнения операции ввода-вывода 1 ’ 

- Попытка чтения данных после конца файла 

- Элемент данных, считываемый процедурой READ, не 
принадлежит к должному типу. При работе процедуры 
GET из пакета TEXTJO обнаруживается, что входной 
элемент данных имеет формат, не соответствующий 
требуемому, или его значение выходит за пределы 
заданного диапазона 

При использовании пакета ТЕХТ_ІО 

- Вырабатываемые значения параметров COL, LINE или 
PAGE превышают величину COUNT'LAST 

- В строке, являющейся фактическим параметром для 
PUT, насчитывается слишком много символов 

- Предпринимается попытка задать такой номер пози¬ 
ции или такое количество строк в странице, которые 
превосходят некоторые .заранее установленные гра¬ 
ницы 

Пакет IO_EXCEPTIONS видим в каждом из пакетов ввода-вывода. Все исклю¬ 
чительные ситуации, описанные в нем, появляются в обозначениях переименования 
этих пакетов в таком виде (см. также приложение В): 
for SEQUENTIALJO package : 

STATUS_ERROR exception renames 
IO_EXCEPTIONS.STATUS_ERROR; 

Этот формат позволяет проводить различие между исключительными ситуациями 
для разных пакетов ввода-вывода, так как теперь становится возможным ссылаться на 
ситуации вида SEQUENTIALJO.NAMEJERROR или DIRECTION AME^ERROR без 
использования еще одного дополнительного уточнителя. 

Теперь перепишем программу MERGE_PROC_GRADES из гл. 8 с тем, чтобы 
продемонстрировать применение пакета IO_EXCEPTIONS и показать эффект рас¬ 
пространения исключительных ситуаций. В использовании исключительных ситуаций в 
процедурах READ_1 и READ_2 есть некоторая избыточность. В упр. 1 в конце главы 
предлагается устранить эту избыточность. Существующая же в данной программе 
избыточность помогает сохранить часть общей структуры программы, разработанной 
ранее. Это будет способствовать лучшему пониманию новой версии программы. 
Программа EXCEP_MERGE_PROC_GRADES 
with TEXT- ІО; use TEXT-10; 
with SEQUENTIAL-IO; 

procedure EXCEP_MERGE_PROC_GRADES is 

package INT-IO is new INTEGER_IO(INTEGER); 
use INT-IO; 
type T-PAIR is 


DEVICE.ERROR: exception 
(Сбой_устройства) 
END_ERROR: exception 
(Конец—данных) 
DATA_ERROR: exception; 
(Ошибка_В—данных) 


LAYOUT.ERROR: exception; 
(Ошибка_выходного_формата) 


u Примечание. Данная исключительная ситуация может не применяться в некоторых 
реализациях Ады: вместо нее сбои оборудования сигнализируются другими ситуациями, на¬ 
пример USE_ERROR. 
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record 

SUBJ-MAT : STRING < 1 .. 5 ); 

SCORE = NATURAL; 
end record; 

CURR-PAIR : T-PAIR; 

type SEMESTER-TESTS is array (1 .. 25 ) 
of T_PAIR; 

type BIG-REC is 
record 

BIG-ST-ID : STRING < 1 .. 10 >; 

NO-TESTS = NATURAL; 

ST-TESTS : SEMESTER-TESTS; 
end record; 

— Идентификаторы/ использованные в тексте/ 

— до сих пор совпадают с идентификаторами из 

— программы SEQ-PROC-GRADES и имеют тот же 

— смысл. 

package STUD-IO is new SEQUENTIAL-IO(BIG-REC); 
use STUD-IO; 

CURR—REC—1—IN, CURR—REC—2_IN, 

CURR-REC-OUT . STUD-10.BIG-REC; 
STUD—IN—1, STUD-IN_2/ STUD-OUT-FILE = 

STUD-10.FILE-TYPE; 

procedure READ-1 is 
begin 

READ(FILE => STUD-IN-l, 

ITEM => CURR_REC_1_IN); 
exception 

when STUD_I0.STATUS-ERROR => 

— Возможно, не открыт файл. 
PUT(" Status error reading file " & 
"STUDENT-FILE-1-IN.DAT"); 
raise; 

— Повторно возбуждается та же самая 

— исключительная ситуация 

— STATUS-ERROR. Она будет распростра- 

— няться далее на вызывавшую подпрог- 

— рамму. Заметьте, что,если исключите- 

— льная ситуация объявлена локально 

— (например, внутри данной процедуры), 

— то она не видима извне и, следова- 

— тельно, на нее нельзя ссылаться 

— за пределами данной процедуры, 
when STUD-IO.MODE-ERROR => 

— Возможно, неправильно 

— задан режим обмена с файлом, 

— например данный файл открыт 

— как 0UT-FILE . 

PUTC Mode error reading file " & 

•'STUDENT-FILE-l-IN. DAT") ; 
raise; 

— Повторно возбуждается исключительная 

— ситуация MODE-ERROR. Она будет распро- 

— страняться на вызывавшую подпрограмму, 
when STUD- 10. DEVICE-ERROR => 

— Эта ошибка свидетельствует 




— о сбое аппаратуры. 

PUT (" Device error reading file " & 

" STUDENT-FILE-1-1N. DAT**); 
raise; 

— Здесь невозможна исключительная ситуа- 

— ция NAME-ERROR/ поскольку в процедуре 
— READ отсутствует параметр NAME. 

— Ситуация USE-ERROR также не должна 

— здесь возникать/ хотя в некоторых 

— реализациях языка она может возбудить- 

— ся при отдельных видах сбоев аппара- 

— туры. 

when STUD- 10. END-ERROR => 

— Возможно/ предпринимается 

— попытка считывания данных 

— после конца файла. 

PUT(“ End error reading file " 8c 

"STUDENT-FILE-1-IN.DAT"); 
raise; 

when STUD-10.DATA-ERROR => 

— Возможно/ считанный элемент 

— не принадлежит к типу 

— BIG-REC или не распознается 

— как элемент этого типа. 
PUT<" Data error reading file " 8c 

"STUDENT-FILE-1-IN.DAT"); 
raise; 

when others => 

— Любые другие исключительные 

— ситуации. 

PUT (" Unusual kind of error reading " & 
"file - 8c “STUDENT-FILE-1-IN.DAT"); 
raise; 
end READ1; 

procedure READ-2 is 
begin 

READ(FILE => STUD-IN-2/ 

ITEM => CURR_REC_2_IN); 
exception 

— Здесь указаны точно те же исключительные 

— ситуации/ что и для процедуры READ1 . 
when STUD- 10. STATUS-ERROR => 

PUT(" Status error reading file " 8c 
"STUDENT-FILE-2-IN.DAT"); 
raise; 

when STUD-10.MODE-ERROR => 

PUT(" Mode error reading file " 8c 
"STUDENT-FILE-2-IN.DAT"); 
raise; 

when STUD-10.DEVICE-ERROR => 

PUT(" Device error reading file " 8c 
"STUDENT-FILE-2-lN.DAT"); 
raise; 

when STUD-10.END-ERROR => 

PUT(" End error reading file " 8c 
"STUDENT-FILE-2-IN.DAT"); 
raise; 
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when STUD_IO . DATA-ERROR => 

PUT(" Data error reading file " & 

H STUDENT-FILE-2-1N.DAT"); 
raise; 

when others => 

PUT(" Unusual kind of error reading file " & 
“STUDENT-FILE-2-IN.DAT"); 
raise; 
end READ2; 

procedure WRITE-OUT is 
begin 

WRITE(FILE => STUD-OUT-FILE/ 

ITEM => CURR-REC-OUT ); 
exception 

when STUD-IO.STATUS-ERROR => 

— Возможно/ не открыт файл. 

PUT (" Status error writing file “ & 

“STUD-MERGED-FILE.DAT"); 
raise; 

— Повторно возбуждается исключитель- 

— ная ситуация STATUS-ERROR. Она 

— распространится на вызывающую 

— подпрограмму, 
when STUD-IO.MODE-ERROR => 

— Возможно/ неверно задан режим 

— обмена с файлом как TN-FILE. 

PUT<“ Mode error writing file " & 

"STUD-MERGED-FILE.DAT"); 
raise; 

— Повторно возбуждается исключитель- 

— ная ситуация MODE-ERROR. Она 

— распространится на вызывающую 

— подпрограмму. 

— Исключительная ситуация NAME-ERROR 

— здесь невозможна/ так как процедура 
— WRITE не имеет параметра NAME. 

— Исключительная ситуация USE-ERROR 

— также не должна возбуждаться здесь/ 

— хотя в некоторых реализациях Ады 

— отдельные виды сбоев аппаратуры 

— приводят к возбуждению этой исключи- 

— тельной ситуации. 

— Ситуация END-ERROR здесь возникнуть 

— не может. 

when STUD- 10. DATA-ERROR => 

— Возможно/ записываемый элемент 

— не относится к типу BIG-REC или 

— не может быть интерпретирован 

— как элемент этого типа. 

PUT<" Data error writing file “ & 

"STUD-MERGED-FILE.DAT"); 
raise; 

when others => 

— Остальные исключительные ситуации. 
PUT<" Unusual kind of error writing file " & 
"STUD-MERGED-FILE.DAT"); 
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raise; 

end WRITE-OUT; 

procedure COPY-1 is 
begin 

while not STUD-I0.END—OF—FILE(STUD—IN_1) 
loop 
READ-1; 

CURR-REC-OUT == CURR_REC_1_IN; 

WRITE-OUT; 
end loop; 

PUT(" First input file was last processed"); 

— Сюда можно поместить обработчик для тех 

— исключительных ситуаций/ которые будут 

— распространяться (т.е. возбуждаться по- 

— вторно) из процедур READ-1 или WRITE-0UT . 
end COPY-1 ; 

procedure COPY-2 is 
begin 

while not STUD—I0.END-OF—FILE(STUD—IN_2) 
loop 
READ-2; 

CURR-REC-OUT == CURR_REC_2_IN; 

WRITE-OUT; 
end loop; 

PUT("Second input file was last processed"); 

— Здесь можно разместить обработчик исклю- 

— чительных ситуаций (такой же/ как в C0PY-1). 
end C0PY-2; 

procedure CLOSE—IT; 
begin 

if STUD-1 0 .1S-OPEN < STUD-1N_1) 
then 

STUD-I0.CLOSE(STUD-IN_1); 
end if; * 

if STUD- ІО. IS-OPEN(STUD-IN_2) 
then 

STUD-I0.CLOSE(STUD-IN_2); 
end if; 

if STUD-I0.IS-OPEN(STUD-OUT-FILE) 
then 

STUD-IO.CLOSE(STUD-OUT-FILE); 
end if; 
end CLOSE—IT; 

begin 

— Здесь удобно употребить оператор блока/ 

— так как он позволяет идентифицировать 

— конкретный оператор/ вызываюций возник- 

— новение исключительной ситуации. В про- 

— тивном случае будет неизвестно/ в каком из 

— операторов OPEN или CLOSE произошла 

— ошибка. 
begin 

STUD-IO.OPEN(FILE => STUD-IN-1/ 

MODE => IN-FILE/ 
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NAME => "STUDENT-FILE-1-IN . DAT" / 
FORM => ); 

— Используются принятые по умол- 
— чанию характеристики фалла. 

exception 

when STUD_I О. STATUS-ERROR => 

— Возможно/ что файл уже открыт. 

PUT(" Status error opening file " & 
"STUDENT-FILE-1-IN.DAT"); 
raise; 

— Повторно возбуждается та же самая 

— исключительная ситуация 

— STATUS-ERROR. Она будет распростра- 

— няться далее (фактически программа 

— завершится/ а управление будет 

— передано во внешнюю среду). 

— Исключительная ситуация MODE-ERROR 

— здесь возникать не будет, 
when STUD- 10. NAME-ERROR => 

— Быть может/ не существует внешний 
— Файл/ или же в строке/ определяющей 

— параметр NAME/ допущена ошибка. 

PUT <" Name error opening file " & 

"STUDENT-FILE-1-IN.DAT"); 
raise; 

when STUD-10.USE-ERROR => 

— Возможно/ задан неверный фактический 

— параметр/ либо обнаружена иная не- 

— корректность. 

PUTC Use error opening file 11 & 

11 STUDENT-F ILE-1 -1N . DAT" ) ; 
raise; 

— Ситуация END-ERROR не будет возникать 

— при открытии файла. Ситуация 
— DATA-ERROR невозможна. 

when others => 

— Прочие исключительные ситуации. 

PUT(" Unusual kind of error opening file " & 
"STUDENT-FILE-1-IN.DAT"); 
raise; 

end; 

begin 

STUD-IO.OPEN(FILE => STUD-IN-2/ 

MODE => IN-FILE/ 

NAME => "STUDENT-FILE-2-IN.DAT" / 
FORM => "" ); 

exception 

— Исключительные ситуации в данном случае 

— будут те же/ что и для файла STUD-IN-1 . 
when STUD- 10. STATUS-ERROR => 

PUT(" Status error opening file " & 

"STUDENT-FILE-2-1N. DAT "); 
raise; 

when STUD-10.NAME-ERROR => 

PUTC Name error opening file " & 

"STUDENT-FILE-2-1N. DAT "); 
raise; 
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when STUD. IО. USE-ERROR => 

PUT(" Use error opening file " & 

"STUDENT-FILE-2-IN.DAT "); 
raise; 

when others => 

PUT(" Unusual kind of error opening file " & 

"STUDENT-FILE-2-1N. DAT "); 
raise; 
end; 
begin 

STUD-IO.CREATE(FILE => STUD-OUT-FILE, 

MODE => OUT-FILE, 

NAME => "STUD-MERGED-FILE.DAT", 

FORM => ); 

— Создать об 'единенный файл, 
exception 

when STUD-IO.STATUS-ERROR => 

— Возможно, что файл уже открыт. 

PUT(" Status error creating the file “ & 
"STUD-MERGED-FILE.DAT"); 
raise; 

when STUD-10.MODE-ERROR => 

— Ошибка будет возникать, если создается 

— файл с режимом обмена IN-FILE. 

PUTC Mode error creating the file “ & 

"STUD-MERGED-FILE.DAT"); 
raise; 

when STUD-IO.NAME-ERROR => 

— Быть может, в имени внешнего файла 

— заданы недопустимые символы. 

PUT(" Name error creating the file “ & 

"STUD-MERGED-FILE.DAT"); 
raise; 

when STUD-IO.USE-ERROR => 

— Возможно, неправильно задан фактичес- 

— кий параметр FORM, либо допущена иная 

— некорректность. 

PUT <" Use error creating the file " & 
"STUD-MERGED-FILE.DAT"); 
raise; 

— Ситуация END-ERROR не может возникнуть 
— при создании файла. 

— Ошибка DATA-ERROR невозможна, 
when others => 

— Любые другие исключительные ситуации. 

PUT(" Unusual kind of error creating file “ & 
"STUD-MERGED-FILE.DAT"); 
raise; 

end; 

— Еще один блок, охватывающий основные действия, 
begin 

if not STUD_I0.END_0F_FILE(STUD_IN_1) and 
not STUD-I О .END-OF-FILE(STUD-IN_2) 
then 
READ-1; 

READ-2; 

loop 
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if CURR_REC_1_IN . BIG—ST-ID < 
CURR_REC_2_IN. В IG_ST_ID 
then 

— Запись данных из первого файла. 
CURR_REC_OUT == CURR_REC_1_IN; 
WRITE-OUT; 

if STUD-10.END-OF-FILE<STUD-1N_1) 
then 

— Записан последний элемент из пер- 

— вого входного файла. Теперь запи- 

— шеи текущий элемент из второго 

— входного файла. В противном слу- 

— чае этот элемент будет отброшен в 

— процедуре C0PY-2. Слияние файлов 

— заканчивается после окончания 

— выполнения C0PY-2. 

CURR-REC-OUT == CURR-REC-2- I N ; 
WRITE_OUT; 

COPY-2; 
exit; 
end if; 

READ-1; 

elsif CURR-REC-l-1N. В IG-ST-1D > 
CURR-REC-2-IN.BIG-ST-ID 

then 

— Теперь выполняется запись данных 

— из второго файла. 

CURR-REC-OUT == CURR_REC_2_IN; 
WRITE-OUT; 

if STUD-I0.END-OF-FILE(STUD-IN_2) 
then 

— Записан последний элемент из вто- 

— рого входного файла. Теперь вапи- 

— шем текущий элемент из первого 

— входного файла. В противном слу- 

— чае этот элемент будет отброшен в 

— процедуре C0PY-2. Слияние файлов 

— заканчивается после окончания 

— выполнения C0PY-1 . 

CURR-REC-OUT == CURR-REC-1-IN; 
WRITE-OUT; 

COPY-1 ; 
exit; 
end if; 

READ-2; 

else 

— Здесь складываются количества конт- 

— рольных работ студентов. 
CURR-REC-OUT .= CURR-REC-1-N; 
CURR-REC-OUT . NO-TESTS == 

CURR-REC-OUT.NO-TESTS + 
CURR_REC_2-IN; 
CURR-REC-OUT.ST-TESTS 

<CURR_REC_1_IN.NO-TESTS +1 
CURR-REC-OUT.NO-TESTS) 
CURR-REC-2-IN.ST-TESTS 
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(1 .. CURR_REC_2_IN.NO-TESTS); 

— Это - присваивание вырезки. 
WRITE-OUT; 

if STUD-I О .END-OF-FILE(STUD-IN_2) 
then 
COPY-1; 
exit; 
end if; 

— После того как достигнут конец одного 

— файла/ копируем другой файл. 

if STUD-I О .END-OF-FILE(STUD-IN-l) 
then 
COPY-2; 
exit; 
end if; 

READ-1; 

READ-2; 
end if; 

— Здесь об'единяются два непустых файла. 
— По крайней мере один файл обработан. 
— Теперь скопируем оставшийся, 
end loop; 

е1 sif STUD-I0.END_OF_FILE(STUD-IN-1) 
then 
COPY-2; 

else 

— Если управление попадает сюда/ то 
— Файл STUD-IN-2 должен быть пустым. 

C0PY-1 ; 
end if; 

PUT(" The merge is done "); 
exception 

— Эта исключительная ситуация возникнет 

— в случае распространения исключительных 

— ситуаций из процедур READ/ WRITE/ COPY 

— и т.д. 

when others => CLOSE-IT; 

end; 

— Конец блока/ охватывающего основные 

— действия по обработке файлов. 

CLOSE-IT ; 

— Этот вызов выполняется при успешном заверше- 

— нии обработки. 

end EXCEP-MERGE-PROC-GRADES ; 


11.3. ОБРАБОТКА ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЙ 

ПРИ ПАРАЛЛЕЛЬНО ПРОТЕКАЮЩИХ ПРОЦЕССАХ 

Как отмечалось в разд. 11.1, TASKING_ERROR является предопределенной 
исключительной ситуацией, возникающей при некоторых событиях, происходящих во 
время взаимодействия задач. Это следующие события: 

- невозможность запуска задачи; 

- попытка установить связь с задачей, которая уже закончилась или находится в 
состоянии аварийного завершения; 

- явное возбуждение состояния TASKING_ERROR во время рандеву. 
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Исключительная ситуация TASKING ERROR возникает либо в вызывающей 
задаче в точке вызова (к примеру, когда вызываемая задача уже завершилась), либо в 
вызываемой задаче, если исключительная ситуация возникла во время рандеву. 

Если исключительная ситуация возникла в вызванной задаче, то распространение 
ситуации будет зависеть от наличия локальных средств ее обработки. Если исклю¬ 
чительная ситуация возбуждена в пределах оператора приема accept и для нее есть 
локальный обработчик, то она не должна распространяться. Впрочем, у программиста 
есть возможность повторно возбудить эту ситуацию и тем самым вызвать ее 
распространение. Если же локальный обработчик желаемой исключительной ситуации 
отсутствует, то эта ситуация распространяется на вызывающую задачу. Обратите 
внимание, что если вызывающая задача попадет в состояние аварийного завершения, 
то на вызванную задачу это никак не подействует, т. е. внутри ее не возбудится никакой 
исключительной ситуации. 

Проиллюстрируем использование исключительных ситуаций, возникающих в за¬ 
дачах, на примере следующей программы, являющейся модификацией программы 
PLANT_SCHED из гл. 10. Она видоизменена так, чтобы можно было учесть поломку 
любой из трех машин, занятых в производственном цикле. Будем считать, что если 
машина сломается, то ее нельзя починить для продолжения обработки данной партии 
деталей. Кроме того, для упрощения программы здесь опущены первые операторы 
цикла в задачах МАСН1, МАСН2, МАСНЗ и INSPECT. 

Программа EXCEP„PLANT_SCHED 

with DISTRIBUTIONS; use DISTRIBUTIONS; 

with CALENDAR; use CALENDAR; 

procedure EXCEP_PLANT_SCHED is 

N_OF_FINISHED-PROD . NATURAL == 0; 

N_0F_REJECTS : NATURAL := 0; 
task COORDINATOR is 
entry SCHED; 
end COORDINATOR; 
task MACH1 is 
entry 0PER1; 
entry DISABLE; 
end MACH1; 
task MACH2 is 
entry 0PER2; 
entry DISABLE; 
end MACH2; 
task МАСНЗ is 

entry OPERl-N—2; 
entry DISABLE; 
end МАСНЗ ; 

task STOP.INSPECTION; 
task INSPECT is 
entry PRODUCT; 
entry TAKE-A-BREAK; 
end INSPECT; 

— Далее добавлена дополнительная задача, 

— которая моделирует поломку машин МАСН1, 

— МАСН2 или МАСНЗ, если функция BREAK-DOWN 

— дает соответственно значения 1, 2 или 3. 

— Если же вырабатывается значение 4, то произ- 

— водственный процесс продолжаться не может 

— (например, сломаны МАСН2 и МАСНЗ). 

— Любые другие числа означают, что текуцие 
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— состояния машин не изменяются, 
task DISABLE-MACHINES; 

task body MACH1 is 

MACHl_JOB-DURATION , DURATION; 
begin 

MACHl-JOB—DURATION : = PROBABILITY (ТІМЕ-МАСН1 ); 
loop 

— Эта часть программы добавлена для обра- 

— ботки возможного вызова входа DISABLE. 

— Идентичные тексты добавлены в задачи 
— МАСН2 и МАСНЗ. Альтернативный способ 

— реализации этой части: 

— if DISABLE'COUNT > Ѳ 

— then 

accept DISABLE do 

loop null; end loop; 

— end; 

— end if; 
select 

accept DISABLE do 
loop 
null; 
end loop; 
end; 
else 
null; 

end select; 

— Конец дополнительного текста. 

accept 0PER1; 

delay MACHl-JOB-DURATION; 

— Поместим вызов входа в блок, 
begin 

МАСН2. 0PER2 ; 
exception; 

when TASKING-ERROR => 

PUT<" Possibly terminated MACH2"); 
raise; 

end; 

MACHl-JOB-DURATION := PROBABILITY(TIME-MACHl); 
end loop; 
end MACHl; 

task body MACH2 is 

MACH2-JOB-DURATION = DURATION; 
begin 

MACH2-JOB-DURATION .= PROBABILITY(TIME-MACH2); 
loop 

— Начало дополнительного текста, 
select 

accept DISABLE do 

loop null; end loop; 
end; 

else null; 
end select; 

— Конец дополнительного текста, 
accept 0PER2; 
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delay MACH2-JOB-DURATION; 

— Поместим вызов задачи в блок, 
begin 

INSPECT.PRODUCT; 
exception 

when TASKING-ERROR => 

PUTC Possibly terminated INSPECT"); 
raise; 

end; 

MACH2-JOB-DURATION : = PROBABILITY(TIME-MACH2); 
end loop; 
end MACH2; 

task body MACH3 is 

MACH3-JOB-DURATION = DURATION; 
begin 

MACH3-JOB-DURATION := PROBABILITY(TIME-MACH3); 
loop 

— Начало дополнительного текста, 
select 

accept DISABLE do 

loop null; end loop; 
end; 

else null; 
end select; 

— Конец дополнительного текста. 

accept 0PER1-N-2; 

delay MACH3-JOB-DURATION; 

— Поместим вызов задачи в блок, 
begin 

INSPECT.PRODUCT; 
exception 

when TASKING-ERROR => 

PUT<" Possibly terminated INSPECT “); 
raise; 

end; 

MACH3-JOB-DURATION = = PROBABILITY(TIME—MACH3); 
end loop; 
end MACH3; 

task body COORDINATOR is 
begin 

accept SCHED; 
loop 
loop 
select 

MACH1.0PER1; 
exit; 
or 

delay 0.01; 
end select; 
select 

MACH3.0PER1-N-2; 
exit; 
or 

delay 0.01; 
end select; 
end loop; 
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select ; 

accept SCHED; 
else 
null i 

end select; 
end loop; 
exception 

when TASK1NG-ERROR => 

PUT(" Problem in one of the calls “); 
raise; 

end COORDINATOR; 

task body STOP_INSPECTION is 
begin 
loop 

delay 120.00; 

INSPECT.TAKE_A_BREAK; 
end loop; 

end STOP-INSPECTION; 

task body INSPECT is 
INSP-PASSED : BOOLEAN; 

EXAM-TIME : DURATION; 

START-MANUFACT/ STOP-MANUFACT : TIME; 

DURATION-MANUFACT = DURATION; 
package DURATION-IO is new FIXED-IO 
(DURATION); 

use DURATI0N_I0; 
begin 

START-MANUFACT := CLOCK; 

INSP-PASSED :« INSP-RESULT; 

EXAM-TIME .» PROBABILITY(INSPECTION); 
loop 

accept PRODUCT; 
delay EXAM-TIME; 
if INSP-PASSED 
then 

N-OF-FINISHED-PROD = - N-OF-FINISHED-PROD 
+ 1 ; 

else 

N-OF-REJECTS N-OF-REJECTS + 1; 
end if; 

EXAM-TIME PROBABILITY(INSPECTION); 
INSP-PASSED INSP-RESULT; 
exit when N-OF-FINISHED-PROD - 200; 
if TAKE-A-BREAK'COUNT > 0 
then 

accept TAKE-A-BREAK; 
delay 15; 
end if; 
end loop; 

STOP-MANUFACT == CLOCK; 

DURATION_MANUFACT : = START-MANUFACT - 
STOP-MANUFACT; 

PUT (DURATION_MANUFACT/ 10/ 2); 
abort STOP-INSPECTION; 

— Обратите внимание/ что когда данная задача 
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— закончится/ то любое обращение к ней будет 

— приводить к возбуждению в вызывающей задаче 

— исключительной ситуации Т ASKING-ERROR . Си- 

— туация возникнет в точке вызова. 

— Поэтому в задаче МАСН2 и позднее в зада- 

— чах МАСН1/ МАСНЗ и COORDINATOR возникнет 
-- одна и та же исключительная ситуация 

-- Т ASKING-ERROR . 
end INSPECT; 

— Ниже располагается тело задачи DISABLE-MACHINES. 

— Каждую секунду (что соответствует одной минуте 

— в реальном производственном процессе) вызыва- 

— ется функция BREAK-DOWN (ПОЛОМКА). Спецификация 

— данной функции должна быть добавлена в пакет 

— DISTRIBUTIONS следующим образом: 

— function BREAK-DOWN return NATURAL; 

— Этот пакет должен содержать в составе своего 

— тела средства учета сломанных машин/ чтобы 

— одна и та же машина не ломалась двукратно, 
task body DISABLE-MACHINES; 

MAYBE-IS-BROKE . NATURAL; 
begin 
loop; 

delay 1.0; 

MAYBE-IS-BROKE == BREAK-DOWN; 
case MAYBE-IS-BROKE is 

when 1 => MACH1.DISABLE; 

when 2 => MACH2.DISABLE; 

when 3 => MACH3.DISABLE; 

when 4 => abort MACH2; 

abort MACH3; 

— Задача INSPECT может 
— еще быть активной, 
abort INSPECT; 
when others => null; 
end case; 
end loop; 

end DISABLE-MACHINES; 
begin 

for I in 1 .. 20© 
loop 

COORDINATOR.SCHED; 
end loop; 

end EXCEP-PLANT-SCHED; 


УПРАЖНЕНИЯ 

1. Перепишите заново программу EXCEP MERGE PROCLGRADES, заменив процедуры 
READ_1 и READ_2 на новую процедуру с формальным параметром, который будет показывать, 
для какого файла следует выполнять чтение. Сделайте и другие необходимые модификации, 
чтобы должным образом идентифицировать возможные исключительные ситуации. 

2. Перепишите заново каждую программу из гл. 5, включив в них соответствующие средства 
обработки исключительных ситуаций. 

3. Видоизмените пакет BANK_RESOURCES и программу BANK_MAINT из гл. 8 так, чтобы 
включить в них адекватные средства обработки исключительных ситуаций. 
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ПРЕДОПРЕДЕЛЕННЫЕ АТРИБУТЫ ЯЗЫКА 


P'ADDRESS 


FAFT 


FBASE 


FCALLABLE 


FCONSTRAINED 


Префикс Р обозначает объект, программный сегмент, метку 
или вход. Вырабатывается адрес первого блока памяти, отве¬ 
денной под Р. Для подпрограммы, пакета, сегмента-задачи 
или метки это значение относится к машинному коду, свя¬ 
занному с соответствующим телом или оператором. Для 
входа это значение относится к точке соответствующего 
аппаратного прерывания. Значение данного атрибута при¬ 
надлежит к типу ADDRESS, определенному в пакете SYSTEM 
(см. 13.7.2) 2 > 

Префикс Р обозначает фиксированный подтип. Результатом 
запроса атрибута является значение, равное числу цифр после 
десятичной точки, необходимому для сохранения точности 
подтипа Р, если только значение шага delta этого подтипа Р не 
превышает 0.1. В противном случае получается единица. 
(FAFT -это наименьшее положительное число N, для которо¬ 
го значение выражения (10 ** N) * FDELTA больше или равно 
единице.) Этот атрибут дает значение, относящееся к универ¬ 
сальному _целому типу (см. 3.5.10) 

Префикс Р обозначает тип или подтип. Значением этого 
атрибута служит тип, базовый для Р. Атрибут разрешается 
использовать только в качестве префикса другого атрибута, 
например P'BASE'FIRST (см. 3.3.3) 

Префикс Р соответствует типу «задача». Значение FALSE 
вырабатывается, если выполнение задачи Р закончено или 
полностью завершено или же если эта задача находится в 
аварийном состоянии. В противном случае получается зна¬ 
чение TRUE. Тип значения атрибута-это предопределенный 
логический тип BOOLEAN (см. 9.9) 

Префикс Р обозначает объект, принадлежащий к типу с 
дискриминантами. Значение TRUE вырабатывается, если к 
объекту Р применяется уточнение дискриминанта или если 
объект является константой, включая случай, когда он вы¬ 
ступает как формальный параметр или родовой формальный 
параметр с видом связи in. В противном случае получается 
значение FALSE. Если Р-родовой формальный параметр с 
видом связи in out или если Р формальный параметр с видом 
связи in out или out, а обозначение типа, приведенное в 
соответствующей спецификации параметра, обозначает не¬ 
уточненный тип с дискриминантами, то значение данного 
атрибута получается из значения атрибута соответствующего 


1> Материал приложений перепечатан из Справочного руководства по языку Ада ANSI/ 
MIL-STD-1815A. [Имеется перевод: Джехани Н. Язык Ада.-М.: Мир, 1988.] 

2) Номера разделов соответствуют номерам разделов вышеприведенной книги. 
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P'CONSTRAINED 


FCOUNT 


FDELTA 


FDIGITS 


FEMAX 


FEPSILON 


FFIRST 


FFIRST 


FFIRST(N) 


фактического параметра. Значение настоящего атрибута при¬ 
надлежит к предопределенному логическому типу BOOLEAN 
(см. 3.7.4) 

Префикс Р обозначает приватный тип или подтип. При 
запросе атрибута вырабатывается значение FALSE, если Р 
обозначает неуточненный приватный тип с дискриминантами, 
не являющийся формальным параметром, а также если Р 
обозначает родовой приватный тип, являющийся формаль¬ 
ным параметром, а соответствующий фактический подтип- 
это либо неуточненный тип с дискриминантами, либо не¬ 
уточненный регулярный тип. В остальных случаях получается 
значение TRUE. Значение данного атрибута принадлежит к 
предопределенному логическому типу BOOLEAN (см. 7.4.2) 
Префикс Р обозначает вход или сегмент-задачу. При запросе 
атрибута вырабатывается значение, равное числу вызовов 
входа, находящихся в данный момент времени в очереди к 
нему. (Если этот атрибут вычисляется внутри оператора 
приема для входа Р, то содержимое счетчика не включает 
вызов от вызывающей задачи.) Значение настоящего атрибута 
относится к унивврсалъному_целому типу (см. 9.9) 

Префикс Р обозначает фиксированный подтип. При запросе 
атрибута вырабатывается значение, равное шагу delta, ука¬ 
занному в определении абсолютной погрешности для подтипа 
Р. Значение этого атрибута принадлежит к универсально¬ 
му ^действительному типу (см. 3.5.10) 

Префикс Р обозначает плавающий подтип. При запросе атри¬ 
бута вырабатывается число, равное количеству десятичных 
цифр в мантиссе модельных чисел для подтипа Р. (Этот 
атрибут дает число D из разд. 3.5.7 руководства по языку.) 
Значение данного атрибута принадлежит к универсально- 
му_целому типу (см. 3.5.8) 

Префикс Р обозначает плавающий подтип. При запросе атри¬ 
бута вырабатывается число, равное наибольшему значению 
порядка числа в двоичном каноническом представлении мо¬ 
дельных чисел для подтипа Р. (Этот атрибут дает произ¬ 
ведение 4 * В из разд. 3.5.7 руководства по языку.) Значение 
данного атрибута относится к универсалъному_целому типу 
(см. 3.5.8) 

Префикс Р обозначает плавающий подтип. При запросе атри¬ 
бута вырабатывается число, равное абсолютному значению 
разности между модельным числом 1.0 и следующим за ним 
большим модельным числом для подтипа Р. Значение дан¬ 
ного атрибута принадлежит к универсальному_действитель- 
ному типу (см. 3.5.8) 

Префикс Р обозначает скалярный тип или подтип скалярного 
типа. Атрибут дает нижнюю границу значений для Р. Зна¬ 
чение атрибута принадлежит к тому же типу, что и Р 
(см. 3.5) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Атрибут дает нижнюю границу диапазона 
значений для первого индекса. Значение атрибута имеет тот 
же тип, что и эта нижняя граница (см. 3.6.2 и 3.8.2) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Запрос атрибута дает нижнюю границу 
диапазона значений для N-ro индекса. Значение атрибута 
имеет тот же тип, что и эта нижняя граница. Аргумент N 
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P'LARGE 


P'LAST 


P'LAST 


P'LAST(N) 


Приложение A 

должен быть статическим выражением универсального_целого 
типа. Значение N должно быть положительным (ненулевым) и 
не превышать размерности массива (см. 3.6.2 и 3.8.2) 
Префикс Р обозначает компоненту структуры. Атрибут дает 
величину смещения первого бита компоненты, отсчитывае¬ 
мую от начала первого из блоков памяти, занимаемых ком¬ 
понентой. Величина смещения измеряется числом бит. Зна¬ 
чение данного атрибута принадлежит к универсальному^це- 
лому типу (см. 13.7.2) 

Префикс Р обозначает фиксированный подтип. Запрос атри¬ 
бута дает величину, равную минимальному числу символов, 
необходимому для целой части десятичного представления 
любого значения подтипа Р. Данное представление не вклю¬ 
чает показатель степени, но включает односимвольный пре¬ 
фикс, в качестве которого выступает знак минус или пробел. В 
этом минимальном числе не учитываются предшествующие 
нули и символы подчеркивания. Получается число, не мень¬ 
шее двух. Значение данного атрибута принадлежит к универ¬ 
сальному _целому типу (см. 3.5.10) 

Префикс Р обозначает дискретный тип или подтип. Этот 
атрибут является функцией с одним параметром. Фактиче¬ 
ским параметром X должна служить величина, относящаяся к 
базисному для Р типу. Тип результата - предопределенный 
тип STRING. Результатом запроса атрибута является образ 
значения X, т. е. последовательность символов, представляю¬ 
щая значение X в формате, доступном для восприятия че¬ 
ловеком. Образ целого числа это соответствующий деся¬ 
тичный литерал без символов подчеркивания, без предшест¬ 
вующих нулей, без показателя степени и без последующих 
пробелов. Но это представление включает односимвольный 
префикс-знак минус или пробел. Образ перечисляемого зна¬ 
чения-это либо соответствующий идентификатор, отобра¬ 
жаемый на верхнем регистре, либо соответствующий сим¬ 
вольный литерал, включающий два апострофа, без пред¬ 
шествующих и последующих пробелов. Образ символа, не 
входящего в набор графических знаков Ады, будет системно¬ 
зависимым (см. 3.5.5) і 

Префикс Р обозначает действительный подтип. Запрос атри¬ 
бута дает наибольшее положительное модельное число для 
подтипа Р. Значение данного атрибута относится к универ¬ 
сальному^действительному типу (см. 3.5.8 и 3.5.10) 

Префикс Р обозначает скалярный тип или подтип скалярного 
типа. Атрибут дает верхнюю границу значений для Р. Зна¬ 
чение данного атрибута принадлежит к тому же типу, что и Р 
(см. 3.5) 

Префикс Р обозначает регулярный тип или уточненный регу¬ 
лярный подтип. Атрибут дает верхнюю границу диапазона 
значений первого индекса. Значение данного атрибута отно¬ 
сится к тому же типу, что и эта верхняя граница (см. 3.6.2 и 
3.8.2) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Запрос атрибута дает верхнюю границу 
диапазона значений N-ro индекса. Значение данного атрибута 
относится к тому же типу, что и эта верхняя граница. 
Аргументом N должно служить статическое выражение уни- 
версального_целого типа. Значение N должно быть положи- 
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тельным (ненулевым), оно не должно превышать количества 
измерений массива (см. 3.6.2 и 3.8.2) 

Префикс Р обозначает компоненту структуры. Атрибут дает 
величину смещения последнего бита компоненты относитель¬ 
но первого блока памяти, занимаемой этой компонентой. 
Величина смещения измеряется числом битов. Значение дан¬ 
ного атрибута принадлежит к универсальному_целому типу 
(см. 13.7.2) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Атрибут дает величину, равную количеству 
значений, которое может принимать первый индекс (нуль в 
случае пустого диапазона значений индекса). Значение дан¬ 
ного атрибута относится к универсальному_целому типу 
(см. 3.6.2) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Атрибут дает величину, равную количеству 
значений, которое может принимать N -й индекс (нуль в 
случае пустого диапазона значений индекса). Значение дан¬ 
ного атрибута относится к универсальному_целому типу. Ар¬ 
гументом N должно служить статическое выражение универ- 
сального_целого типа. Значение N должно быть строго по¬ 
ложительным, оно не должно превышать количества изме¬ 
рений массива (см. 3.6.2 и 3.8.2) 

FMACHINE_EMAX Префикс Р обозначает плавающий тип или подтип. Атрибут 

дает наибольшее значение порядка в машинном представ¬ 
лении базового для Р типа. Значение данного атрибута 
относится к универсальному_целому типу (см. 13.7.3) 

P'MACHINE_EMIN Префикс Р обозначает плавающий тип или подтип. Атрибут 

дает наименьшее (максимальное по абсолютной величине) 
значение порядка в машинном представлении базового для Р 
типа. Значение данного атрибута принадлежит к универсалъ- 
ному_целому типу (см. 13.7.3) 

FMACHINE_MANTISSA Префикс Р обозначает плавающий тип или подтип. Атрибут 

дает количество цифр мантиссы в машинном представлении 
базового для Р типа. (Здесь цифры-это расширенные 
цифры 1 ’ из диапазона от 0 до Р'М ACHINE_RADIX -1.) 
Значение данного атрибута принадлежит к универсаль- 
ному_целому типу (см. 13.7.3) 

FMACHINE_OVERFLOWS Префикс Р обозначает действительный тип или подтип. Атри¬ 

бут дает значение TRUE, если каждая предопределенная 
операция над значениями базового для Р типа либо дает 
корректный результат, либо возбуждает исключительную си¬ 
туацию NUMERICLERROR при переполнениях. В противном 
случае получится значение FALSE. Значения данного атри¬ 
бута относятся к предопределенному типу BOOLEAN 
(см. 13.7.3) 

FMACHINE_RADIX Префикс Р обозначает плавающий тип или подтип. Атрибут 

дает значение основания системы счисления, которое исполь¬ 
зуется в машинном представлении базисного для Р типа. 
Значение данного атрибута относится к универсальному_це- 
лому типу (см. 13.7.3) 


FLAST.BIT 


FLENGTH 


FLENGTH(N) 


*’ Под расширенными цифрами понимаются обычные цифры и буквенные обозначения цифр 
от 10 до 15 при основании системы счисления, большем десяти-Ярим, перев. 
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FSAFE_EMAX 


FSAFE_LARGE 


FSAFE.SMALL 


Префикс P обозначает действительный тип или подтип. Атри¬ 
бут дает значение TRUE, если в итоге каждой предопределен¬ 
ной арифметической операции над значениями базового для 
Р типа получается точный или округленный результат. В 
противном случае получается значение FALSE. Значение дан¬ 
ного атрибута принадлежит к предопределенному типу 
BOOLEAN (см. 13.7.3) 

Префикс Р обозначает действительный подтип. Атрибут дает 
количество двоичных цифр в двоичной мантиссе модельных 
для подтипа Р чисел. {Этот атрибут вычисляет число В из 
разд. 3.5.9 для фиксированного типа.) Значение данного атри¬ 
бута относится к универсальному _целому типу (см. 3.5.8 и 
3.5.10) 

Префикс Р обозначает дискретный тип или подтип. Этот 
атрибут является функцией одного параметра. Фактическим 
параметром X должна быть величина базового для Р типа. 
Тип результата - универсалъный_целый. Результатом запроса 
атрибута является номер позиции значения фактического 
параметра в совокупности значений данного дискретного 
типа (см. 3.5.5) 

Префикс Р обозначает компонент структуры. Атрибут дает 
величину смещения первого из блоков памяти, занимаемых 
компонентой, относительно начала первого из блоков па¬ 
мяти, занимаемых структурой. Это смещение измеряется в 
блоках памяти. Значение данного атрибута относится к уни¬ 
версальному _целому типу (см. 13.7.2) 

Префикс Р обозначает дискретный тип или подтип. Этот 
атрибут является функцией одного параметра. Фактическим 
параметром X должна быть величина базового для Р типа. 
Тип результата-это базовый для Р тип. Результатом запроса 
атрибута является значение, позиция которого в совокупности 
значений типа Р на единицу меньше, чем позиция X. Если X 
станет равным FBASE'FIRST, то возникнет исключительная 
ситуация CONSTRAINT_ERROR (см. 3.5.5) 

Префикс Р обозначает регулярный тип или уточненный ре¬ 
гулярный подтип. Атрибут дает диапазон значений первого 
индекса Р, т.е. диапазон P'FIRST .. FLAST (см. 3.6.2) 
Префикс Р обозначает регулярный тип или подтип. Атрибут 
дает диапазон значений N-ro индекса Р, т. е. диапазон 
P'FIRST(N) .. P'LAST (см. 3.6.2) 

Префикс Р обозначает плавающий тип или подтип. Атрибут 
дает наибольшее значение показателя степени в бинарной 
канонической форме «надежных» чисел базового для Р типа. 
(Этот атрибут вырабатывает число Е из разд. 3.5.7.) Значение 
данного атрибута принадлежит к универсальному_целому типу 
(см. 3.5.8) 

Префикс Р обозначает действительный тип или подтип. Атри¬ 
бут дает наибольшее «надежное» число базового для Р типа. 
Значение данного атрибута принадлежит к универсально¬ 
му действительному типу (см. 3.5.8 и 3.5.10) 

Префикс Р обозначает действительный тип или подтип. Атри¬ 
бут дас;т наименьшее строго положительное «надежное» число 
базового для Р типа. Значение данного атрибута принадле¬ 
жит к универсалъному_действительному типу (см. 3.5.8 и 
3.5.10) 
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Префикс Р обозначает объект. Атрибут выдает значение, 
равное количеству бит, выделенному для размещения объек¬ 
та. Значение данного атрибута относится к универсально¬ 
му _і(елому типу (см. 13.7.2) 

Префикс Р обозначает любой тип или подтип. Атрибут дает 
значение, равное минимальному количеству бит, которое в 
данной системе потребуется выделить для размещения лю¬ 
бого возможного объекта типа или подтипа Р. Значение 
данного атрибута относится к универсальному_целому типу 
(см. 13.7.2) 

Префикс Р обозначает действительный подтип. Атрибут дает 
наименьшее строго положительное число подтипа Р. Значение 
данного атрибута относится к универсальному_действитель- 
ному типу (см. 3.5.8 и 3.5.10) 

P'STORAGESIZE Префикс Р обозначает ссылочный тип или подтип. Атрибут 

дает значение, равное общему количеству блоков памяти, 
зарезервированному под совокупность данных, ассоциируе¬ 
мую с базовым для Р типом. Значение данного атрибута 
принадлежит к универсальному_целому типу (см. 13.7.2) 
P'STORAGE_SIZE Префикс Р обозначает тип «задача» или объект этого типа. 

Атрибут дает значение, равное количеству блоков памяти, 
зарезервированному для каждой активации типа «задача» Р 
или объекта «задача» Р. Значение данного атрибута при¬ 
надлежит к универсальному_целому типу (см. 13.7.2) 

FSUCC Префикс Р обозначает дискретный тип или подтип. Этот 

атрибут является функцией одного параметра. Фактическим 
параметром X должна служить величина базового для Р типа. 
Тип результата-базовый для Р тип. Результатом служит 
значение, позиция которого в совокупности значений ти¬ 
па Р на единицу больше, чем у X. Если X будет равно 
P'BASE'LAST, то возникнет исключительная ситуация 
CONSTRAINT_ERROR (см. 3.5.5) 

FTERMINATED Префикс Р относится к типу «задача». Атрибут дает значение 

TRUE, если задача Р окончательно завершилась. В про¬ 
тивном случае получается значение FALSE. Значение данного 
атрибута принадлежит к предопределенному типу BOOLEAN 
(см. 9.9) 

FVAL Префикс Р обозначает дискретный тип или подтип. Этот 

атрибут является специальной функцией одного параметра X, 
■который может принадлежать к любому целому типу. Тип 
результата - базовый для Р тип. Результатом служит зна¬ 
чение, номер позиции которого является величиной универ- 
сального_целого типа X. Если универсальная_целая величина X 
не будет находиться в диапазоне P'POS(P'BASE'FIRST) .. 
P'POS(P'BASE'LAST), то возникнет исключительная ситуация 
CONSTRAINT_ERROR (см. 3.5.5) 

P'VALUE Префикс Р обозначает дискретный тип или подтип. Этот 

атрибут является функцией одного параметра. Фактический 
параметр X должен быть величиной предопределенного типа 
STRING. Тип результата - базовый для Р тип. Все пробелы, 
стоящие перед или после последовательности символов, со¬ 
ответствующих X, игнорируются. Для перечисляемого типа: 
если последовательность символов имеет синтаксис пере¬ 
числяемого литерала и если этот литерал существует для 
базового по отношению к Р типу, что результатом будет 
соответствующее перечисляемое значение. Для целого типа: 


FSIZE 

FSIZE 

FSMALL 


20-618 
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если последовательность символов имеет синтаксис целого 
литерала с необязательным символом (плюс или минус), 
стоящим перед ним, и если существует соответствующее 
значение в множестве значений базового для Р типа, то 
результатом будет это значение. В любых других случаях 
будет возбуждено состояние CONSTRAINT_ERROR 
(см. 3.5.5) 

Р' WIDTH Префикс Р обозначает дискретный подтип. Атрибут дает 

максимальную длину образа по всем значениям подтипа Р. 
{Образ -это последовательность символов, выдаваемая при 
запросе атрибута IMAGE.) Значение атрибута WIDTH при¬ 
надлежит к универсальному_целому типу (см. 3.5.5) 



Приложение Б 

ПРЕДОПРЕДЕЛЕННЫЕ ИНСТРУКЦИИ 
ДЛЯ ТРАНСЛЯТОРА ЯЗЫКА 


В данном приложении определяются инструкции транслятору LIST, PAGE и OPTIMIZE и 
подытоживаются определения остальных инструкций языка Ада. 


Инструкция (pragma) 
CONTROLLED 


ELABORATE 


INLINE 


Смысл инструкции транслятору 
В качестве аргумента выступает простое имя ссылочного 
типа. Эту инструкцию можно располагать только непосред¬ 
ственно в декларативной части программы или в специфи¬ 
кации пакета, содержащих объявление ссылочного типа, при¬ 
чем объявление должно текстуально предшествовать данной 
инструкции. Не допускается использование инструкции для 
производных типов. Инструкция указывает транслятору, что 
для объектов, на которые указывают ссылочные значения, не 
должна выполняться автоматическая утилизация памяти, 
исключая выход из ближайшего оператора блока, тела под¬ 
программы или тела задачи, охватывающих объявление ссы¬ 
лочного типа, либо выход из главной программы (см. 4.8) 1 ’ 
В качестве аргументов используются одно или несколько 
простых имен, обозначающих библиотечные сегменты. Ин¬ 
струкция должна располагаться сразу после фразы подклю¬ 
чения контекста для сегмента компиляции, т. е. перед следую¬ 
щим далее библиотечным или вторичным сегментом. Ин¬ 
струкция указывает транслятору, что соответствующее тело 
библиотечного сегмента должно быть обработано перед дан¬ 
ным сегментом компиляции. Если данный сегмент компи¬ 
ляции является подсегментом, то тело библиотечного сегмен¬ 
та должно быть обработано перед обработкой другого тела 
библиотечного сегмента, породившего данный подсегмент 
(см. 10.5) 

В качестве аргументов используются одно или несколько 
имен, каждое из которых-это либо имя подпрограммы, либо 
имя родовой подпрограммы. Инструкция может распола¬ 
гаться либо на месте объявления в декларативной части 
программы или спецификации пакета, либо (при трансляции) 
после библиотечного сегмента, но перед любым последую¬ 
щим сегментом компиляции. Данная инструкция дает транс¬ 
лятору указание, чтобы объектный код тел подпрограмм 
вставлялся в код итоговой подпрограммы в любом месте их 
вызова, где это возможно 2 ’. В случае родовой подпрограммы 
инструкция применяется к вызовам ее конкретизаций 
(см. 6.3.2) 


См. сноски на стр. 300. 

В этом случае принято і иворить о так называемой открытой подпрограмме. - Прим, перев. 
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INTERFACE В качестве аргументов используются имя языка и имя под¬ 

программы. Инструкция должна располагаться на месте объ¬ 
явления и применяться к подпрограмме, объявленной ранее в 
той же декларативной части или спецификации пакета. Дан¬ 
ную инструкцию также разрешается применять по отноше¬ 
нию к библиотечному сегменту; в этом случае инструкция 
должна располагаться после объявления подпрограммы и 
перед любым последующим сегментом компиляции. Эта 
инструкция указывает название другого языка (и соответ¬ 
ственно специфицирует необходимые соглашения о связях), а 
также информирует транслятор о том, что для соответствую¬ 
щей подпрограммы будет предоставлен объектный модуль 
(см. 13.9) 

LIST Единственным аргументом служит один из идентификаторов 

ON или OFF. Эту инструкцию разрешается помещать в 
любом допустимом для инструкций месте программы. Ин¬ 
струкция LIST дает указание транслятору включить (ON) или 
выключить (OFF) печать листинга программы. Действие 
данной инструкции продолжается до тех пор, пока (в пределах 
одного и того же процесса компиляции) не встретится ин¬ 
струкция LIST с противоположным значением аргумента. 
Сама эта инструкция печатается всегда, когда компилятор 
генерирует листинг программы 

MEMORY_SIZE Единственным аргументом инструкции служит числовой ли¬ 

терал. Данную инструкцию можно размещать только в на¬ 
чале компилируемого текста программы, перед первым сег¬ 
ментом компиляции (если он есть) данного процесса транс¬ 
ляции. Инструкция предписывает использовать указанное зна¬ 
чение числового литерала для определения именованного 
числа MEMORY_SIZE (см. 13.7) 

OPTIMIZE Единственным аргументом здесь служит один из иденти¬ 

фикаторов TIME или SPACE. Эту инструкцию разрешается 
размещать только в декларативной части. Она относится ко 
всему блоку или телу, охватывающему эту декларативную 
часть. Инструкция указывает, что должно быть главным 
критерием оптимизации программы - время ее выполнения 
или объем занимаемой памяти 

PACK Единственным аргументом служит имя комбинированного 

или регулярного типа. Правила расположения этой инструк¬ 
ции и ограничения для названного типа те же, что и для фазы 
представления. Эта инструкция указывает, что в качестве 
главного критерия при выборе способа представления за¬ 
данного типа должна служить минимизация объема памяти 
(см. 13.1) 

PAGE Эта инструкция не имеет аргумента и может располагаться в 

любом допустимом для инструкций месте программы. Она 
указывает, что текст программы, следующий после инструк¬ 
ции, должен печататься, начиная с новой страницы (если 
транслятор в это время генерирует листинг программы) 

PRIORITY Единственным аргументом служит статическое выражение 

предопределенного целого типа PRIORITY. Данную инструк¬ 
цию можно располагать только внутри спецификации сегмен¬ 
та-задачи или непосредственно в пределах декларативной 
части главной программы. Инструкция указывает приоритет 
конкретной задачи (или совокупности задач для типа «за¬ 
дача») или приоритет главной программы (см. 9.8) 
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SHARED Единственным аргументом служит простое имя переменной. 

Эту инструкцию можно использовать только для скалярной 
или ссылочной переменной, введенной путем объявления ее 
объекта. Объявление переменной и данная инструкция (имен¬ 
но в таком порядке) должны располагаться непосредственно в 
одной и той же декларативной части или спецификации 
пакета. Инструкция указывает, что каждая операция чтения 
или изменения заданной переменной служит и точкой синхро¬ 
низации для этой переменной. В конкретной системе должен 
быть ограничен круг объектов, по отношению к которым 
данная инструкция может применяться. Этот круг должны 
составлять те объекты, для которых каждое непосредственное 
чтение и изменение значения реализованы как целостные 
(неделимые) операции (см. 9.11) 

STORAGE_UNIT Единственным аргументом служит числовой литерал. Дан¬ 

ную инструкцию можно указывать только в начале ком¬ 
пилируемой программы, перед первым сегментом компи¬ 
ляции (если он есть), участвующим в процессе трансляции. 
Использование инструкции приводит к использованию зна¬ 
чения заданного числового литерала при определении пои¬ 
менованного числа STORAGE_UNIT (см. 13.7) 

SUPPRESS В качестве аргументов используются идентификатор проверки 

и имя объекта, типа, подтипа, подпрограммы, сегмента-зада¬ 
чи или родового сегмента (второй аргумент может отсутство¬ 
вать). Данную инструкцию разрешается располагать либо 
непосредственно в декларативной части, либо непосредствен¬ 
но в спецификации пакета. В последнем случае разрешается 
употреблять только такую форму инструкции, в которой имя 
обозначает ресурс (или несколько перекрытых подпрограмм), 
объявленный непосредственно в спецификации пакета. Разре¬ 
шение отменить указанную проверку действует в пределах от 
места размещения инструкции до конца декларативно^ облас¬ 
ти, ассоциируемой с наиболее близким охватывающим 1 ’ опе¬ 
ратором блока или программным сегментом. Если инструк¬ 
ция используется в спецификации пакета, то ее действие 
распространяется до конца области действия упомянутого 
ресурса. Если в инструкции указано имя, то разрешение 
отменить заданную проверку предстает в еще более огра¬ 
ниченном виде. Оно действует только для операций над 
названным объектом или над всеми объектами типа (ба¬ 
зисного для названного типа или подтипа), для вызовов 
названной подпрограммы, для запусков задач названного 
типа «задача», для конкретизаций заданного родового сегмен¬ 
та (см. 11.7) 

SYSTEM_NAME Единственным аргументом служит перечисляемый литерал. 

Инструкцию можно размещать только в начале текста про¬ 
граммы, подлежащей компиляции, перед первым сегментом 
компиляции (если он вообще есть), участвующим в данном 
процессе трансляции. Применение инструкции приводит к 
использованию перечисляемого литерала с заданным иден¬ 
тификатором для определения константы SYSTEM_NAME. 
Настоящую инструкцию можно употреблять только в том 
случае, если указанный идентификатор соответствует одному 
из литералов типа NAME, объявленных в пакете SYSTEM 
(см. 13.7) 

’’ Имеется в виду наибольшая глубина вложения -Прим, перев. 




Приложение В 

ПРЕДОПРЕДЕЛЕННОЕ ОКРУЖЕНИЕ ЯЗЫКА 


В данном приложении описывается спецификация пакета STANDARD, содержащего все 
предопределенные идентификаторы языка. Соответствующее тело пакета будет системно-зависи¬ 
мым и оно здесь не показано. 

Операции, являющиеся предопределенными для типов, объявленных в пакете STANDARD, 
даются здесь в виде комментариев, так как они объявлены неявно. Курсивом выделены 
псевдоимена анонимных типов (например, универсальный_целый) и неопределенная информация 
(например, системно_зависимый или любой_фиксированный_гпигі). 

package STANDARD is 

type BOOLEAN is (FALSE, TRUE); 

— Предопределенные операции отношений для этого типа: 

— - function ’- ’ (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function 7-* (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function "<” (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function ’<=’ (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function *>» (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function ’> = ’ (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 


— Предопределенные логические операции и предопределенная операция л 

— function "and* (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function 'or* (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function "xor* (LEFT, RIGHT : BOOLEAN) return BOOLEAN; 

— function ’nof (RIGHT : BOOLEAN) return BOOLEAN; 

-- Универсальный тип универсальный_целый является предопределенным. 


type INTEGER is системно_зависимый; 

-- Предопределенные операции для этого типа: 


— function ”=’ 

— function 7=’ 

— function "<’ 
--function ’<=’ 
-- function ’>* 

— function ’>=' 

— function ’+* 


(LEFT, RIGHT : INTEGER) return BOOLEAN 
(LEFT, RIGHT : INTEGER) return BOOLEAN 
(LEFT, RIGHT : INTEGER) return BOOLEAN 
(LEFT, RIGHT : INTEGER) return BOOLEAN 
(LEFT, RIGHT : INTEGER) return BOOLEAN 
(LEFT, RIGHT : INTEGER) return BOOLEAN 


(RIGHT : INTEGER) return INTEGER; 




(RIGHT : INTEGER) return INTEGER; 
(RIGHT : INTEGER) return INTEGER; 
(LEFT, RIGHT : INTEGER) return INTEGER 
(LEFT, RIGHT : INTEGER) return INTEGER 
(LEFT, RIGHT : INTEGER) return INTEGER 
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— function Т (LEFT, RIGHT : INTEGER) return INTEGER; 

— function Tern' (LEFT, RIGHT : INTEGER) return INTEGER; 

-- function "mod' (LEFT, RIGHT : INTEGER) return INTEGER; 

— function '**' (LEFT : INTEGER; RIGHT : INTEGER) return 

INTEGER; 

-- В конкретной реализации могут иметься добавочные предопределенные целые типы. Рекомен- 
-- дуется, чтобы имена таких типов заканчивались словом INTEGER, например SHORT INTE- 
-- GER или LONGJNTEGER. Спецификация каждой операции для типа универсальный_целый 
-- или для любого другого добавочного предопределенного целого типа получается из специфи- 

— кации соответствующей операции для типа INTEGER путем замены имени INTEGER на рмя 
-- нужного типа. Исключением из этого правила служит операция возведения в степень, для 

— которой типом правого операнда всегда остается тип INTEGER. 

-- Тип универсалъный_действителъный является предопределенным. 

type FLOAT is системно_зависимый; 

-- Предопределенные операции для этого типа: 

— - function “=” (LEFT, RIGHT : FLOAT) return BOOLEAN; 

— function “/=” (LEFT, RIGHT ; FLOAT) return BOOLEAN; 

— function “<” (LEFT, RIGHT : FLOAT) return BOOLEAN; 

— - function “< = ” (LEFT, RIGHT : FLOAT) return BOOLEAN; 

— function “>” (LEFT, RIGHT : FLOAT) return BOOLEAN; 

— function “> = ” (LEFT, RIGHT : FLOAT) return BOOLEAN; 

— function “+” (RIGHT : FLOAT) return FLOAT; 

— function (RIGHT : FLOAT) return FLOAT; 

— function “abs” (RIGHT : FLOAT) return FLOAT; 

— function “ + ” (LEFT, RIGHT : FLOAT) return FLOAT; 

— function (LEFT, RIGHT : FLOAT) return FLOAT; 

— function (LEFT, RIGHT : FLOAT) return FLOAT; 

— function “Г (LEFT, RIGHT : FLOAT) return FLOAT; 

— - function.. (LEFT: FLOAT; RIGHT : INTEGER) return FLOAT; 

-- В конкретной реализации могут иметься добавочные предопределенные плавающие типы. 
-- Рекомендуется, чтобы названия таких типов заканчивались словом FLOAT, например 

— SHORT_FLOAT или LONG_FLOAT. Спецификация каждой операции для типа универсалъ- 

— ный_действительный или для любого добавочного предопределенного плавающего типа 

— получается из спецификации соответствующей операции для типа FLOAT путем замены слова 

— FLOAT на имя нужного типа. 

— Для универсальных типов, кроме перечисленных выше операций, определены также и 
-- следующие: 

-- function «*» (LEFT : универсальный_целый; RIGHT : универсалъный_действительный) return 
-- универсалъный_действителъный\ 

— function «»» (LEFT : универсалъный_действительный; RIGHT : универсалъный_целый) return 

— - универсальный-действителъный ; 

-- function «/» (LEFT : универсальный действительный; RIGHT : универсалъный_целый ) return 

— - универсалъныйидействителъный', 

— Тип универсалъный_фиксированный является предопределенным типом. Для него разрешены 
-- лишь такие операции: 

-- function «*» (LEFT : любой-фиксированный_тип\ RIGHT : любой_фиксированный_тип) 
-- return универсальный_фиксированный; 

-- function «/» (LEFT любой_фиксированный_тип ; RIGHT любой_фжсированный_тип) 
-- return универсальный_фиксированный; 

-- Следующие символы входят в стандартный набор символов кода ASCII. Символьные лите- 
-- ралы, соответствующие управляющим символам, не являются идентификаторами. В данном 
-- определении они выделены курсивом. 
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Приложение В 


type CHARACTER is 


nul. 

soh, 

stx, 

etx. 

eot, 

enq , 

ack, 

bel, 

bs, 

ht, 

If, 

vt, 

ff, 

cr. 

so. 

si , 

die, 

del, 

dc2, 

dc3. 

dc4. 

nak. 

syn , 

etb, 

can, 

em. 

sub, 

esc, 

ff 

gs. 

rs y 

US, 


»!* 


'#', 

'$', 



'", 








7', 

'O’, 

T, 

'2', 

'3', 

'4', 

'5', 

'6', 

'7', 

'8', 

'9', 




' = ', 




'A', 

'B', 

'C', 

'D', 

'E', 

'F, 

'G', 

'H\ 

T, 

'J', 

'K', 

'L', 

'M', 

'N', 

'O', 

'P\ 

'Q\ 

'R', 

'S', 

T', 

'U', 

'V', 

'W', 

'X', 

'Y\ 

'Z\ 


7', 





'a'. 

'b'. 

'c'. 

'd'. 

'e'. 

'f. 

'g'. 

'h\ 

'i'. 

'j'. 

'k'. 

T, 

'm'. 

'n'. 

'o'. 

V. 

V, 

V, 

's'. 

't'. 

'u'. 

'v'. 

'w'. 

'x'. 

У, 

'z'. 

T, 

T, 



del ); 


for CHARACTER use -- Сюда входят все 128 символов кода ASCII (0,1,2, 3,4, 5,.... 125,126,127); 
-- Предопределенные операции для типа CHARACTER, такие же, как и у любого перечисляемого 


package ASCII is 
-- Управляющие символы: 


NUL 

STX 

EOT 

АСК 

BS 

LF 

FF 

SO 

DLE 

DC2 

DC4 

SYN 

CAN 


RS 

DEL 

SOH 

ETX 

ENQ 

BEL 

HT 

VT 

CR 

SI 

DC1 

DC3 

NAK 


constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 
constant CHARACTER : = 




eot; 

ack; 

bs; 

V; 

ff; 

so; 

die; 

dc2; 

dc4; 

syn; 



soh; 

etx; 

enq; 

bel; 

ht; 

vt; 

si; 

del; 

dc3; 
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ЕТВ 

ЕМ 

ESC 

GS 

US 


it CHARACTER 
it CHARACTER 
it CHARACTER 
it CHARACTER 
it CHARACTER 


-- Прочие символы: 


EXCLAM 

SHARP 

PERCENT 

COLON 

QUERY 

L_BRACKET 

R_BRACKET 

UNDERLINE 

L_BRACE 

R_BRACE 

QUOTATION 

DOLLAR 

AMPERSAND 

SEMICOLON 

AT_SIGN 

BACKSLASH 

CIRCUMFLEX 

GRAVE 

BAR 

TILDE 


constant CHARACTER : = 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := '?’; 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 
constant CHARACTER := 'V; 
constant CHARACTER 
constant CHARACTER : = ' ‘ 
constant CHARACTER := 
constant CHARACTER := 


— Буквы нижнего регистра: 

LC_A : constant CHARACTER := a'; 


LC_Z : constant CHARACTER := V; 
end ASCII; 


-- Предопределенные подтипы: 

subtype NATURAL is INTEGER range 0 .. INTEGER'LAST; 
subtype POSITIVE is INTEGER range 1 .. INTEGER'LAST; 

- Предопределенный строковый тип: 

type STRING is array (POSITIVE range < >) of CHARACTER; 
pragma PACK (STRING); 

— Предопределенные операции для этого типа: 

— function ’=* (LEFT, RIGHT : STRING) return BOOLEAN; 

— - function 7=' (LEFT, RIGHT : STRING) return BOOLEAN; 

— function ’<* (LEFT, RIGHT : STRING) return BOOLEAN; 

— function "<=' (LEFT, RIGHT : STRING) return BOOLEAN; 

— function ">" (LEFT, RIGHT : STRING) return BOOLEAN; 

— function ">=’ (LEFT, RIGHT : STRING) return BOOLEAN; 

— function (LEFT : STRING; RIGHT : STRING) return STRING 

— function(LEFT : CHARACTER; RIGHT : STRING) return STRING 

— function (LEFT : STRING; RIGHT : CHARACTER) return STRING 

— function '&* (LEFT : CHARACTER; RIGHT : CHARACTER) return STRING 









314 


Приложение В 


type DURATION is delta системно_зависимо range системно_зависимо; 

— Предопределенные операции для типа DURATION, такие же, как и для любого другого 
-- фиксированного типа. 


-- Предопределенные исключительные ситуации: 

CONSTRAINT_ERROR : exception; 

NUMERIC_ERROR : exception; 

PROGRAM_ERROR : exception; 

STORAGE_ERROR : exception; 

TASKING_ERROR : exception; 

end STANDARD; 


-- Пакет MACHINE_CODE (если он есть) (см. 13.8) 

- Родовая процедура UNCHECKED.DEALLOCATION (см. 13.10.1) 

- Родовая функция UNCHECKED_DEALLOCATION (см. 13.10.1) 


package CALENDAR is 
type TIME is private; 

subtype YEAR_NUMBER is INTEGER range 1901 . . 2099; 
subtype MONTH_NUMBER is INTEGER range 1 . . 12; 
subtype DAY_NUMBER is INTEGER range 1 . . 31; 
subtype DAY_DURATION is DURATION range 0.0 . . 86_400.0; 
function CLOCK return TIME; 


function " + ” 
function '+' 
function 
function *—* 
function "<" 
function "<=' 
function ">' 
function ">=' 


function YEAR (DATE : TIME) return YEAR_NUMBER; 
function MONTH (DATE : TIME) return MONTH_NUMBER; 
function DAY (DATE : TIME) return DAY_NUMBER; 
function SECONDS (DATE : TIME) return DAY_DURATION; 
procedure SPLIT ( DATE : in TIME; 

YEAR : out YEAR_NUMBER; 

MONTH : out MONTH_NUMBER; 

DAY : out DAY_NUMBER; 

SECONDS : out DAY_DURATION); 
function TIME_OF ( YEAR : YEAR_NUMBER ) 

MONTH : MONTH_NUMBER; 

DAY : DAY_NUMBER; 

SECONDS : DAY_DURATION := 0.0) return 
TIME; 

(LEFT : TIME; RIGHT : DURATION) return TIME; 

(LEFT : DURATION; RIGHT : TIME) return TIME; 

(LEFT : TIME; RIGHT : DURATION) return TIME; 

(LEFT : TIME; RIGHT : TIME) return DURATION; 

(LEFT, RIGHT : TIME) return BOOLEAN; 

(LEFT, RIGHT : TIME) return BOOLEAN; 

(LEFT, RIGHT : TIME) return BOOLEAN; 

(LEFT, RIGHT : TIME) return BOOLEAN; 


TIME_ERROR : exception; 

-- Эта ситуация может быть возбуждена функциями TIME_OF, «+» и «—» 

private 

-- Системно-зависимая реализация 
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package SYSTEM is 

type ADDRESS is системнозависимый; 
type NAME is системнозависимый_перечисляемый_тип; 
SYSTEM_NAME : constant NAME := системнозависимая; 
STORAGE_UNIT : constant := системнозависимая ; 
MEMORY_SIZE : constant := системнозависимая; 

-- Системно-зависимые поименованные числа: 

MIN_INT : constant := системнозависимая; 

MAX_INT : constant := системнозависимая; 

MAX_DIGITS : constant := системнозависимая; 
MAX_MANTISSA : constant := системнозависимая; 
FINE_DELTA : constant := системнозависимая; 

TICK : constant := системнозависимая; 

— Прочие системно-зависимые объявления 

subtype PRIORITY is INGENER range системнозависимый; 

end SYSTEM; 

with IO_EXCEPTIONS; 

generic 

type ELEMENTTYPE is private; 
package SEQUENT!AL_IO is 
type FILETYPE is limited private; 
type FILE_MODE is (IN_FILE, OUT FILE); 

— Управление файлами 

procedure CREATE ( FILE : in out FILE_TYPE; 

MODE : in FILE_MODE := OUT_FILE; 
NAME : in STRING 
FORM : in STRING 

procedure OPEN ( FILE : in out FILE_TYPE; 

MODE ; in FILE_MODE; 

NAME : in STRING; 

FORM ; in STRING : = "); 

procedure CLOSE (FILE : in out FILE_TYPE); 
procedure DELETE (FILE : in out FILE_TYPE); 
procedure RESET (FILE : in out FILE_TYPE; MODE : in 
FILE_MODE); 

procedure RESET (FILE : in out FILE_TYPE); 
function MODE (FILE : in FILE TYPE) return FILE_MODE; 

function NAME (FILE : in FILE_TYPE) return STRING; 

function FORM (FILE : in FILE_TYPE) return STRING; 

function IS_OPEN (FILE : in FILE_TYPE) return BOOLEAN; 

-- Операции ввода и вывода 

procedure READ (FILE ; in FILE TYPE; ITEM ; out 
ELEMENTTYPE); 

procedure WRITE (FILE : in FILE TYPE; ITEM : in 
ELEMENTTYPE); 

function END_OF_FILE(FILE : in FILE_TYPE) return BOOLEAN; 
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Приложение В 


-- Исключительные ситуации 

STATUS ERROP : exception renames 

IO_EXCEPTIONS.STATUS_ERROR; 

MODE ERROR : exception renames 

IO_EXCEPTIONS.MODE_ERROR; 
NAME_ERROR : exception renames 

IO_EXCEPTIONS.NAME_ERROR; 
USE_ERROR : exception renames 

IO_EXCEPTIONS.USE_ERROR; 

DEVICE ERROR : exception renames 

IO_EXCEPTIONS.DEVICE_ERROR; 
END_ERROR : exception renames 

IO_EXCEPTIONS.END_ERROR; 
DATA_ERROR : exception renames 

IO_EXCEPTIONS.DATA_ERROR; 

— Системно-зависимая реализация 
end SEQUENTIALJO; 

with IO.EXCEPTIONS; 

type ELEMENT TYPE is private; 
package DIRECT_IO is 
type FILETYPE is limited private; 

type FILE_MODE is (IN_FILE, INOUT FILE, OUT_FILE); 

type COUNT is range 0 .. системно зависимый; 

subtype POSITIVE^COUNT is COUNT range 1 .. COUNT'LAST; 

-- Управление файлами 

procedure CREATE (FILE : in out FILE TYPE; 

MODE : in FILE_MODE : = OUT_FILE; 

NAME : in STRING 
FORM : in STRING := "); 
procedure OPEN (FILE : in out FILE_TYPE; 

MODE : in FILE_MODE; 

NAME : in STRING; 

FORM : in STRING :=""); 
procedure CLOSE (FILE : in out FILE_TYPE); 
procedure DELETE (FILE : in out FILE_TYPE); 
procedure RESET (FILE : in out FILE_TYPE; MODE : in 
FILE_MODE); 

procedure RESET (FILE : in out FILE_TYPE); 
function MODE (FILE : in FILE TYPE) return FILE_MODE; 

function NAME (FILE : in FILE_TYPE) return STRING; 

function FORM (FILE : in FILE TYPE) return STRING; 

function IS_OPEN (FILE : in FILE TYPE) return BOOLEAN; 

— Операции ввода и вывода 

procedure READ (FILE : in FILE TYPE; ITEM : out 

ELEMENTTYPE; FROM : POSITIVE_ 
COUNT); 

procedure READ (FILE : in FILE TYPE; ITEM : out 
ELEMENTTYPE); 
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procedure WRITE (FILE : in FILE_TYPE; ITEM : in 

ELEMENTTYPE; TO : POSmVE_COUNT); 
procedure WRITE (FILE : in FILE_TYPE; ITEM : in 
ELEMENTTYPE); 

procedure SET_INDEX(FILE : in FILETYPE; TO . in 
POSITIVE_COUNT); 

function INDEX(FILE : in FILETYPE) return POSITIVE_COUNT; 
function SIZE (FILE ; in FILE TYPE) return COUNT; 
function END OF FILE (FILE : in FILE TYPE) return BOOLEAN; 

-- Исключительные ситуации 

STATUS_ERROR : exception renames 

IO_EXCEPTIONS.STATUS_ERROR; 

MODE_ERROR : exception renames 

IO_EXCEPTIONS.MODE_ERROR; 

NAME ERROR : exception renames 

IO_EXCEPTIONS.NAME_ERROR; 

USE_ERROR : exception renames 

IO_EXCEPTIONS. USE_ERROR; 

DEVICE_ERROR : exception renames 

IO_EXCEPTIONS.DEVICE_ERROR; 

END ERROR : exception renames 

IO_EXCEPTIONS.ENDJERROR; 

DATA ERROR : exception renames 

IO_EXCEPTIONS.DATA_ERROR; 

л- Системно-зависимая реализация 
end DIRECT -Ю; 

with IO_EXCEPTIONS; 
package TEXTIO is 
type FILE_TYPE is limited private; 
type FILE.MODE is (IN.FILE, OUT FILE); 
type COUNT is range 0 .. системно_зависимый; 
subtype POSITIVE_COUNT is COUNT range 1 .. COUNT'LAST; 
UNBOUNDED : constant COUNT := 0; -- размер строки и страницы 
subtype FIELD is INTEGER range 0 .. системно_зависимый\ 
subtype NUMBER.BASE is INTEGER range 2 .. 16; 
type TYPE_SET is (LOWER_CASE, UPPER CASE); 

-- Управление файлами 


procedure CREATE ( FILE : in out FILE_TYPE; 

MODE : in FILE_MODE := INOUT_FILE; 
NAME : in STRING 
FORM : in STRING := '*); 
procedure OPEN ( FILE : in out FILE TYPE; 

MODE : in FILE MODE; 

NAME : in STRING; 

FORM : in STRING := "); 
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procedure CLOSE (FILE : in out FILE_TYPE); 
procedure DELETE (FILE : in out FILEJTYPE); 
procedure RESET (FILE : in out FILE_TYPE; MODE : 

in FILEJMODE); 

procedure RESET (FILE : in out FILE_TYPE); 
function MODE (FILE : in FILEJTYPE) return FILE MODE; 

function NAME (FILE : in FILE_TYPE) return STRING; 

function FORM (FILE : in FILE_TYPE) return STRING; 

function IS_OPEN (FILE : in FILE_TYPE) return BOOLEAN; 

-- Установка входных и выходных файлов, принимаемых по умолчанию 

procedure SETJNPUT (FILE : in FILE_TYPE); 
procedure SET_OUTPUT (FILE : in-FILE TYPE); 
function STANDARDJNPUT return FILE_TYPE; 

function STANDARD_OUTPUT return FILEJTYPE; 

function CURRENTJNPUT return FILE_TYPE; 

function CURRENTOUTPUT return FILEJTYPE; 

— Установка размеров строки и страницы 

procedure SET_LINE_LENGTH (FILE : in FILEJTYPE; TO : in 
COUNT); 

procedure SET_LINE_LENGTH (TO : in COUNT); 
procedure SET_PAGE_LENGTH (FILE : in FILEJTYPE; TO : in 
COUNT); 

procedure SET_PAGE_LENGTH (TO : in COUNT); 

function LINE_LENGTH (FILE : in FILEJTYPE) return COUNT; 

function LINE_LEN GTH return COUNT; 

function PAGE_LENGTH (FILE : in FILE_TYPE) return COUNT; 

function PAGE_LENGTH return COUNT; 

-- Управление номерами позиции в строке, строки и страницы 

procedure NEW_LINE (FILE : in FILEJTYPE; SPACING : in 
POSITIVE_COUNT := 1); 

procedure NEWJJNE (SPACING : in POSITIVE_COUNT : = 

i); 

procedure SKIP_LINE (FILE : in FILEJTYPE; SPACING : in 

POSmVE_COUNT:= 1); 

procedure SKIP_LINE (SPACING : in POSITIVE_COUNT : = 

i); 

function END_OF_LINE (FILE : in FILEJTYPE) return 

BOOLEAN; 

function END_OF_LINE return BOOLEAN; 

procedure NEW_PAGE (FILE : in FILEJTYPE); 

procedure NEW_PAGE; 

procedure SKIP_PAGE (FILE : in FILEJTYPE); 
procedure SKIP_PAGE; 

function END_OF_PAGE (FILE : in FILEJTYPE) return 
BOOLEAN; 

function END_OF_PAGE return BOOLEAN; 
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function END OF FILE (FILE : in FILE_TYPE) return 
BOOLEAN; 

function END_OF_FILE return BOOLEAN; 
procedure SET_COL (FILE : in FILETYPE; TO : in 

POSmVE_COUNT); 

procedure SET_COL (TO : in POSITIVE_COUNT); 

procedure SET_LINE (FILE : in FILE TYPE; TO : in 

POSm VE_COUNT); 

procedure SET_LINE (TO : in POSITIVE_COUNT); 

function COL (FILE : in FILE_TYPE) return POSITIVE_COlJNT; 

function COL return POSITIVE_COUNT; 

function LINE (FILE : in FILE_TYPE) return POSITIVE_COUNT; 

function LINE return POSITIVE COUNT; 

function PAGE (FILE : in FILE_TYPE) return POSITIVE_COUNT; 

function PAGE return POSITIVE_COUNT; 


— Ввод-вывод символов 

procedure GET(FILE : in FILE TYPE; ITEM : out CHARACTER); 
procedure GET(ITEM : out CHARACTER); 
procedure PUT(FILE : in FTLE_TYPE; ITEM : in CHARACTER); 
procedure РІЩГГЕМ : in CHARACTER); 

-- Ввод-вывод строк 

procedure GET(FILE : in FILE TYPE; ITEM*: out STRING); 
procedure GET(ITEM : out STRING); 
procedure PUT(FILE : in FILE TYPE; ITEM : in STRING); 
procedure РІЩГГЕМ : in STRING); 


procedure GET_LINE(F1LE : in FILE_TYPE; ITEM : out STRING; 

LAST : out NATURAL); 

procedure GET_LINE(ITEM : out STRING; LAST : out NATURAL); 
procedure PUT_LINE(FILE : in FILEJTYPE; ITEM : in STRING); 
procedure PUT_LINE(ITEM : in STRING); 

-- Родовой пакет для ввода-вывода величин целых типов 

generic 

type NUM is range <>; 
package INTEGERJO is 

DEFAULTWIDTH : FIELD := NUM'WIDTH; 
DEFAULT_BASE : NUMBER_BASE : = 10; 
procedure GET(FILE : in FILE TYPE; ITEM : out NUM; WIDTH 
: in FIELD := 0); 

procedure GET(ITEM : out NUM; WIDTH : in FIELD : = 0); 
procedure PUT(FILE : in FILEJTYPE; 

ITEM : in NUM; 

WIDTH : in FIELD := DEFAULT_WIDTH; 

BASE : in NUMBER_BASE : = DEFAULT_ 

BASE); 

procedure PUT(ITEM : in NUM; 

WIDTH : in FIELD := DEFAULT_WIDTH; 
BASE : in NUMBER_BASE : = DEFAULT_ 
BASE); 
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procedure GET(FROM : In STRING; ITEM : out NUM; LAST : 
out POSITIVE); 

procedure PUT(TO : out STRING; 

ITEM : in NUM; 

BASE : in NUMBER_BASE : = DEFAULT_ 
BASE); 

end INTEGERJO; 


— Родовые пакеты для ввода-вывода величин действительных типов 

generic 

type NUM is digits <>; 
package FLOATJO is 
DEFAULT_FORE : FIELD := 2; 

DEFAULT_AFT : FIELD : = NUM'DIGITS -1; 

DEFAULT_EXP : FIELD := 3; 

procedure GET(FILE : in FILE_TYPE; ITEM : out NUM; WIDTH : 
in FIELD := 0); 

procedure GET(ITEM : out NUM; WIDTH : in FIELD : = 0); 
procedure PUT(FILE : in FILE TYPE; 

ITEM : in NUM~ 

FORE : in FIELD : = DEFAULT_FORE; 

AFT : in FIELD : - DEFAULT_AFT; 

EXP : in FIELD : = DEFAULT_EXP); 
procedure PUT(ITEM : in NUM; 

FORE : in FIELD := DEFAULT_FORE; 

AFT : in FIELD : = DEFAULT_AFT; 

EXP : in FIELD : = DEFAULTJiXP); 
procedure GET(FROM : in STRING; ITEM : out NUM; LASt: out 
POSITIVE); 

procedure PUT(TO : out STRING; 

ITEM : in NUM; 

AFT : in FIELD : = DEFAULT_AFT; 

EXP : in FIELD := DEFAULT_EXP); 

end FLOATJO; 

generic 

type NUM is delta <>; 
package FIXED JO is 

DEFAULTJ^ORE : FIELD := NUM'FORE; 

DEFAULT_AFT : FIELD := NUM'AFT; 

DEFAULT_EXP ; FIELD := 0; 

procedure GET(FILE in FILE_TYPE; ITEM : out NUM; WIDTH 
: in FIELD := 0); 

procedure GET(ITEM : out NUM; WIDTH : in FIELD ; = 0); 
procedure PUT(FILE : in FILEJYPE; 

ITEM : in NUM; 

FORE : in FIELD : = DEFAULT_FORE; 

AFT : in FIELD : = DEFAULT_AFT; 

EXP : in FIELD : = DEFAULT JiXP); 
procedure PUT(ITEM : in NUM; 

FORE : in FIELD := DEFAULTJ4DRE; 

AFT : in FIELD : = DEFAULT_AFT; 

EXP : in FIELD : = DEFAULT_EXP); 
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procedure GET(FROM 

procedure PUT(TO 

ITEM 

AFT 

EXP 


: in STRING; ITEM : out NUM; LAST : oat 
POSITIVE); 

: oat STRING; 

: in NUM; 

: in FIELD := DEFAULT.AFT; 

: in FIELD :» DEFAULT EXP); 


end FIXED JO; 


— Родовой пакет для ввода-вывода величин перечисляемых типов 


8 *^ре ENUM b <<>); 
package ENUMERATION JO is 
DEFAULTJVIDTH : FIELD := 0; 

DEFAULT_SETTING : TYPE SET UPPERCASE; 
procedure GET(FILE : in FILE_TYPE; ITEM : oat ENUM); 
procedure GET(ITEM : out ENUM); 
procedure PUT(FILE : in FILE TYPE; 

ITEM : in ENUM; 

WIDTH : in FIELD : = DEFAULT_WIDTH; 

SET : in TYPE_SET : - DEFAULT_SETONG); 
procedure PUT(ITEM : in ENUM; 

WIDTH : in FIELD := DEFAULTJVIDTH; 

SET : in TYPE_SET : - DEFAULT_SETTING); 
procedure GET(FROM : in STRING; ITEM ; oat ENUM; LAST : out 
POSITIVE); 

procedure PUT(TO : out STRING; 

ITEM : in ENUM; 

SET : in TYPE_SET : - DEFAULT_SETTING); 
end ENUMERATION JO; 


— Исключительные ситуации 

STATUS_ERROR : exception renames 

IO_EXCEPTIONS.STATUS_ERROR; 

MODE ERROR : exception renames 

IO_EXCEPTIONS.MODE_ERROR; 

NAME ERROR : exception renames 

IO_EXCEPTIONS.NAME_ERROR; 

USE ERROR : exception renames 

IO_EXCEPTIONS.USE_ERROR; 

DEVICE ERROR : exception renames 

IO_EXCEPTIONS.DEVICE_ERROR; 

END_ERROR : exception renames 

IO_EXCEPTIONS.END_ERROR; 

DATA_ERROR : exception renames 

IO_EXCEPTIONS.DATA_ERROR; 

LAYOUT ERROR : exception renames 

IO_EXCEPTIONS.LAYOUT_ERROR; 

private 

-- Системно-зависимая реализация 

end TEXTJO; 
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package IO_EXCEPTIONS is 
STATUS_ERROR : exception; 
MODE_ERROR : exception; 
NAME_ERROR : exception; 
USE_ERROR : exception; 
DEVICE_ERROR : exception; 
END_ERROR : exception; 
DATA ERROR : exception; 
LAYOUT_ERROR : exception; 
end IO_EXCEPTIONS; 


package LOW LEVEL_IO is 

-- Объявления возможных типов для DEVICE и DATA; 

-- Объявления перекрытых процедур для этих типов: 
procedure SEND_CONTROL (DEVICE : тт_устройства ; 

DATA': in out типЛанных ); 
(DEVICE : тип_устройства\ 
DATA : in out типЛанных ); 


procedure RECEIVE_CONTROL 





Приложение Г 

СЛОВАРЬ ТЕРМИНОВ 


Данное приложение не входит в состав стандартного определения языка программирования 
Ада. Термины, выделенные курсивом, либо присутствуют в словаре как самостоятельные 
ключевые слова, либо описаны при пояснении родственных терминов. После термина в скобках 
приведен соответствующий английский термин. 


Агрегат (aggregate). В результате вычисления 
агрегата получается значение составного типа. 
Значение агрегата задается посредством указа¬ 
ния значения каждой его компоненты. Для того 
чтобы показать, какое значение соответствует 
какой компоненте, можно воспользоваться ли¬ 
бо позиционным связыванием, либо поименован¬ 
ным связыванием. 

Атрибут (attribute). При запросе атрибута полу¬ 
чается предопределенная характеристика за¬ 
данного ресурса. Некоторые атрибуты явля¬ 
ются функциями. 

Вариантная часть (variant part) у комбинирован¬ 
ного типа специфицирует его альтернативные 
компоненты и зависимости от значения дискри¬ 
минанта. Каждое значение дискриминанта оп¬ 
ределяет выбор конкретной альтернативы из 
вариантной части. 

Вид связи (mode). См. параметр. 

Видимая часть (visible part). См. пакет. 
Видимость (visibility). Объявление ресурса с не¬ 
которым идентификатором видимо в данной 
точке текста программы, если этот ресурс име¬ 
ет приемлемый смысл для употребляемого в 
данном месте упомянутого идентификатора. 
Объявление будет видимо посредством селекции 
в месте расположения селектора при употреб¬ 
лении селектируемой компоненты или в месте 
расположения имени при поименованном связы¬ 
вании. Объявление будет видимо непосредствен¬ 
но, когда самостоятельно употребленный иден¬ 
тификатор будет иметь смысл, соответствую¬ 
щий этому объявлению. 

Возбуждение исключительной ситуации (raising 
an exception). См. исключительная ситуация. 
Вход (entry) используется для связи между зада¬ 
чами. Внешняя форма вызова входа в точности 
совпадает с вызовом подпрограммы. Внутрен¬ 
нее действие вызова входа специфицируется 


одним или несколькими операторами приема, 
задающими действия, которые следует пред¬ 
принять при вызове входа. 

Выражение (expression) определяет вычисление 
значения. 

Вычисление (evaluation) выражения -это про¬ 
цесс, посредством которого рассчитывается 
значение выражения. Данный процесс имеет 
место во время выполнения программы. 

Генератор (allocator) создает объект и выраба¬ 
тывает новое ссылочное значение, которое ука¬ 
зывает на объект. 

Действительный тип (real type) -тип, значения 
которого представляют собой аппроксимации 
действительных чисел. Существуют два вида 
действительных типов: фиксированные и пла¬ 
вающие. Для фиксированных типов указыва¬ 
ется граница абсолютной погрешности пред¬ 
ставления, для плавающих типов указывается 
граница относительной погрешности представ¬ 
ления, задаваемая в виде количества значащих 
десятичных цифр. 

Декларативная часть (declarative part) -последо¬ 
вательность объявлений. Она может также со¬ 
держать родственную информацию, такую, как 
тела подпрограмм и фазы представления. 
Диапазон (range) -упорядоченный набор значе¬ 
ний скалярного типа. Диапазон задается с по¬ 
мощью указания верхней и нижней границы 
значений. Значение из диапазона принадлежит 
этому диапазону. 

Дискретный тип (discrete type) -тип, который 
имеет упорядоченный набор различающихся 
значений. К дискретным типам относятся пере¬ 
числяемые и целые типы. Дискретные типы 
используются для индексации, для организации 
итераций, в альтернативах выбора в операторах 
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case и в вариантах выбора комбинированных 
типов с вариантными частями. 

Дискриминант (discriminant) -особая компонен¬ 
та объекта или значения комбинированного ти¬ 
па. Подтипы остальных компонент и даже само 
их наличие или отсутствие могут зависеть от 
значения дискриминанта. 

Задача (task) работает параллельно с осталь¬ 
ными частями программы. Она состоит из 
спецификации задачи (в которой задается имя 
задачи, а также имена и формальные пара¬ 
метры ее входов) и тела задачи (в котором 
определяется порядок ее выполнения). Сег¬ 
мент-задача- это один из видов программных 
сегментов. Тип «задача» -это тип, который 
позволяет в дальнейшем объявить любое коли¬ 
чество сходных задач данного типа. Значение 
типа «задача» указывает на задачу. 

Имя (name) -конструкция языка, которая выс¬ 
тупает вместо ресурса. Имя обозначает ресурс, 
а ресурс является значением имени. См. также 
объявление, префикс. 

Индекс (index). См. регулярный тип. 
Индексированная компонента (indexed compo¬ 
nent) обозначает компоненту массива. Это- 
форма имени, содержащая выражения, которые 
указывают значения индексов компоненты мас¬ 
сива. Идексированная компонента может также 
обозначать вход в семействе входов. 
Инструкция (pragma) передает информацию 
транслятору. 

Исключительная ситуация (exception) -сбойная 
ситуация, которая может возникнуть во время 
выполнения программы. Возбуждение исклю¬ 
чительной ситуации приводит к прекращению 
нормального хода выполнения программы с 
тем, чтобы просигнализировать о возникнове¬ 
нии ошибки. Обработчик исключительной си¬ 
туации- участок текста программы, в котором 
указываются действия, которые необходимо 
предпринять в качестве реакции на данную 
ситуацию. Выполнение такого участка текста 
программы называется обработкой исключи¬ 
тельной ситуации. 

Квалифицированное выражение (qualified expres¬ 
sion) -выражение, перед которым стоит обозна¬ 
чение его типа или подтипа. Такая квалифика¬ 
ция (уточнение) используется тогда, когда при 
ее отсутствии выражение могло бы оказаться 
неоднозначным (например, вследствие перекры¬ 
тия).. 

Комбинированный тип (record type). Значение 
комбинированного типа состоит из компонент, 
которые обычно имеют разные типы или под¬ 
типы. Для каждой компоненты значения ком¬ 
бинированного типа или объекта комбиниро¬ 


ванного типа 1 ’ в определении этого типа указы¬ 
вается идентификатор, который однозначно 
определяет компонент структуры. 

Компонента (component) -значение, которое яв¬ 
ляется частью более сложного значения, или 
объект, который является частью более слож¬ 
ного объекта. 

Конкретный образец (instance). См. родовой сег¬ 
мент. 

Константа (constant). См. объект. 

Лексический элемент (lexical element) -иденти¬ 
фикатор, литерал, разделитель или коммента¬ 
рий. 

Литерал (literal) значение, явно выраженное 
буквами, цифрами или прочими символами. 
Литерал-это либо числовой литерал, либо 
перечисляемый литерал, либо символьный ли¬ 
терал, либо строковый литерал. 

Модельное число (model number) -точно пред¬ 
ставимое значение действительного типа. Опе¬ 
рации для действительного типа определены в 
терминах операций над модельными числами 
этого типа. Совокупность свойств модельных 
чисел и операций над ними-это наименьшая 
совокупность свойств, сохраняемая всеми реа¬ 
лизациями данного действительного типа. 

Непосредственная видимость (direct visibility). 
См. видимость. 

Область действия (scope). См. объявление. 
Обозначать (denote). См. объявление. 

Обработка (elaboration) объявления- это про¬ 
цесс, благодаря которому объявление дости¬ 
гает своей цели (например, создается объект ). 
Этот процесс имеет место во время выполне¬ 
ния программы. 

Обработчик исключительной ситуации (handler). 
См. исключительная ситуация. 

Объект (object) содержит значение. В. програм¬ 
ме объект создается либо посредством обра¬ 
ботки объявления объекта, либо при помощи 
генератора. В объявлении или в генераторе 
указывается тип объекта: объект может со¬ 
держать значения только этого типа. 
Объявление (declaration) связывает идентифика¬ 
тор (или иной вид обозначения) с ресурсом. 
Такое связывание действует в пределах части 
текста программы, называемой областью дей¬ 
ствия объявления. В пределах области действия 
объявления существуют участки, где можно 
использовать идентификатор для обращения к 


1) В основном тексте книги объект комби¬ 
нированного типа назван «структурой».- Прим. 
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связанному с ним в объявлении значению. На 
таких участках идентификатор служит прос¬ 
тым именем ресурса. Имя служит для обозна¬ 
чения связанного с ним ресурса. 

Объявление переименования (renaming declara¬ 
tion) позволяет ввести добавочное имя для 
ресурса. 

Ограниченный тип (limited type) -тип, для кото¬ 
рого отсутствует неявное объявление операции 
присваивания и предопределенной операции 
проверки на равенство. Все типы «задача» яв¬ 
ляются ограниченными. Приватный тип мож¬ 
но определить как ограниченный. Операцию 
проверки на равенство для ограниченного типа 
можно объявить явно. 

Оператор (statement) специфицирует одно или 
более действий, которые должны быть произ¬ 
ведены во время выполнения программы. 
Оператор блока (block statement) -единичный 
оператор, который может содержать последо¬ 
вательность операторов. Он может также 
включать декларативную часть и обработчики 
исключительных ситуаций. Действие этих сос¬ 
тавных частей локализовано в операторе 

Оператор приема (accept statement). См. вход. 
Операция в широком смысле (operation) -эле¬ 
ментарное действие, связанное с одним или 
несколькими типами. Операция объявляется 
либо неявно - при объявлении типа, либо явно 
при помощи подпрограммы, которая имеет па¬ 
раметр или результат объявленного типа. 
Операция унарная или бинарная 1 ’ (operator) - 
частный случай операции, которая имеет один 
или два операнда. Обозначение унарной опера¬ 
ции записывается перед операндом. Обозначе¬ 
ние бинарной операции записывается между 
операндами. Последняя форма операции яв¬ 
ляется особым видом вызова функции. Опера¬ 
ция может быть объявлена как функция. Мно¬ 
гие операции декларируются неявно посредст¬ 
вом объявления типа. Например, большинство 
объявлений типа подразумевает неявное объяв¬ 
ление операции проверки на равенство для 
значений этого типа. 

Описание контекста (context clause). См. сег¬ 
мент компиляции. 

Пакет (package). В пакете специфицируется 
группа логически связанных ресурсов, таких, 
как типы, объекты этих типов и подпрограммы 
с параметрами этих типов. Пакет делится на 
объявление и тело пакета. Объявление пакета 

11 При переводе не делалось различия 
между операцией в широком смысле (operation) 
и бинарной или унарной операцией (operator) 
они обе переводились как «операция». Я/нш. 


имеет видимую часть, содержащую объявления 
всех тех ресурсов, которые можно использо¬ 
вать явно за пределами данного пакета. В 
объявление пакета может также входить при¬ 
ватная часть, содержащая те детали струк¬ 
туры ресурсов, которые завершают специфика¬ 
цию видимых ресурсов, но несущественны для 
пользователя пакета. Тело пакета содержит 
реализации подпрограмм (и, возможно, задач и 
других пакетов), которые были специфицирова¬ 
ны в объявлении пакета. Пакет-это один из 
видов программных сегментов. 

Параметр (parameter) -один из поименованных 
ресурсов, ассоциируемый с подпрограммой, вхо¬ 
дом или родовым сегментом и употребляемый 
для связи с соответствующим телом подпрог¬ 
раммы, оператором приема или родовым те¬ 
лом. Формальный параметр- идентификатор, 
используемый для обозначения именованного 
ресурса в пределах тела. Фактический пара¬ 
метр -это конкретный ресурс, связываемый с 
соответствующим формальным параметром 
при вызове подпрограммы, при вызове входа или 
в родовой конкретизации. Вид связи формаль¬ 
ного параметра определяет, будет ли связы¬ 
ваемый фактический параметр задавать значе¬ 
ние формального параметра, или же формаль¬ 
ный параметр будет передавать значение фак¬ 
тическому параметру, или будет иметь место и 
то и другое. Связывание фактических пара¬ 
метров с формальными можно специфициро¬ 
вать при помощи поименованных связываний, 
позиционных связываний или их комбинаций. 
Перекрытие (overloading). Один и тот же иден¬ 
тификатор может иметь в данной точке текста 
программы несколько различных значений. 
Это свойство называется перекрытием. Напри¬ 
мер, перекрытым перечисляемым литералом 
может быть идентификатор, появляющийся в 
определениях двух и более перечисляемых ти¬ 
пов. Фактический смысл перекрытого иденти¬ 
фикатора определяется контекстом. Подпрог¬ 
раммы, агрегаты, генераторы и строковые ли¬ 
тералы также могут быть перекрытыми. 
Переменная (variable). См. объект. 
Перечисляемый тип (enumeration type) - дис¬ 
кретный тип, значения которого представлены 
перечисляемыми литералами, которые зада¬ 
ются явно в объявлении типа. Перечисляемые 
литералы-это либо идентификаторы, либо 
символьные литералы. 

Плавающий тип (floating point type). См. дейст¬ 
вительный тип. 

Подкомпонента (subcomponent) -либо компо¬ 
нента, либо компонента другой подкомпо- 

Подпрограмма (subprogram) процедура или 
функция. Процедура определяет последова- 
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тельность действий, она активизируется при 
помощи оператора вызова процедуры. Функция 
специфицирует последовательность действий и, 
кроме того, вырабатывает значение, называе¬ 
мое результатом. Таким образом, вызов функ¬ 
ции -это выражение. Подпрограмма состоит из 
объявления подпрограммы, в котором указыва¬ 
ется ее имя, формальные параметры и (для 
функции) тип результата, и тела подпрограм¬ 
мы, в котором задается последовательность 
действий. При вызове подпрограммы указыва¬ 
ются фактические параметры, которые подле¬ 
жат связыванию с формальными параметрами. 
Подпрограмма-это один из видов програм¬ 
много сегмента. 

Подсегмент (subunit) См. тело. 

Подтип (subtype) некоторого типа характери¬ 
зует подмножество значений этого типа. Дан¬ 
ное подмножество определяется уточнением 
диапазона значений этого типа. Каждое значе¬ 
ние, входящее в набор значений подтипа, 
принадлежит этому подтипу и удовлетворяет 
уточнению, определяющему этот подтип. 
Позиционное связывание (positional association) 
специфицирует связывание элемента с позицией 
в списке путем использования той же самой 
позиции для указания элемента. 

Поименованное связывание (named association). 
При поименованном связывании выполняется 
ассоциирование элемента с одной или более 
позиций списка, причем эти позиции назы¬ 
ваются по имени. 

Префикс (prefix) используется в качестве первой 
части некоторых видов имен. Префикс-это 
либо вызов функции , либо имя. 

Приватная часть (private part). См. пакет. 
Приватный тип (private type) -тип, структура и 
набор значений которого четко определены, но 
не видимы непосредственно для пользователя 
этого типа. Приватный тип известен только по 
своим дискриминантам (если они есть) и по 
набору операций, определенных для него. 
Приватный тип и применимые для него опера¬ 
ции определяются в видимой части пакета или 
в родовой формальной части. Для приватных 
типов также определены операции присваива¬ 
ния и проверки на равенство и неравенство, 
если только данный приватный тип не является 
ограниченным. 

Присваивание (assignment) -операция, которая 
заменяет текущее значение переменной на новое 
значение. В левой части оператора присваива¬ 
ния указывается переменная, а в правой 
части-выражение, значение которого должно 
стать новым значением переменной. 
Программа (program) состоит из некоторого 
числа сегментов компиляции, один из которых 
является подпрограммой, называемой главной 


программой. Выполнение программы состоит 
из выполнения главной программы, которая 
может вызывать подпрограммы, объявленные 
в других сегментах компиляции программы. 
Программный сегмент (program unit) -либо ро¬ 
довой сегмент, либо пакет, либо подпрограмма, 
либо сегмент-задача. 

Производный тип (derived type) -тип, операции 
и значения которого являются копиями опера¬ 
ций и значений существующего типа. Сущест¬ 
вующий тип называется родительским типом 
для данного производного типа. 

Простое имя (simple name). См. объявление, имя. 
Процедура (procedure). См. подпрограмма. 

Рандеву (rendezvous) -взаимодействие между 
двумя параллельными задачами, происходящее 
в тот промежуток времени, когда одна задача 
вызвала вход другой задачи, а в вызванной 
задаче выполняется соответствующий опера¬ 
тор приема для вызывающей задачи. 
Регулярный тип (array type). Величина регуляр¬ 
ного типа 11 состоит из компонент, которые 
имеют один и тот же подтип (и, следовательно, 
принадлежат к одному и тому же типу). 
Каждая компонента однозначно идентифици¬ 
руется своим индексом (для одномерного мас¬ 
сива) или последовательностью индексов (для 
многомерного массива). Каждый индекс дол¬ 
жен быть величиной дискретного типа и значе¬ 
ние его должно лежать в пределах заданного 
диапазона индексов. 

Родительский тип (parent type). См. производный 
тип. 

Родовой сегмент (generic unit) -трафарет-заго¬ 
товка либо для набора подпрограмм, либо для 
набора пакетов. Подпрограмма или пакет, 
создаваемый при помощи этого трафарета, 
называется конкретизацией родового сегмента. 
Родовая конкретизация - это разновидность 
объявления, которое создает конкретный обра¬ 
зец ресурса. Родовой сегмент записывается в 
виде подпрограммы или пакета, перед специ¬ 
фикацией которых располагается префикс в 
виде родовой формальной части, в которой 
могут быть объявлены родовые формальные 
параметры. Родовой формальный параметр- 
это либо тип, либо подпрограмма, либо объект. 
Родовой сегмент-это один из видов программ¬ 
ных сегментов. 

Сегмент компиляции (compilation unit) -объявле¬ 
ние или тело программного сегмента, представ¬ 
ленное для компиляции в качестве независи¬ 
мого текста. Перед сегментом компиляции 


11 Объект регулярного типа называется 
массивом -Прим, перев. 
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может размещаться описание контекста, в 
котором перечисляются другие сегменты ком¬ 
пиляции, от которых зависит данный сегмент. 
Это делается посредством одной или несколь¬ 
ких фраз подключения контекста. 
Селектируемая компонента (selected component) 
имеет имя, состоящее из префикса и иденти¬ 
фикатора, называемого селектором. Селекти¬ 
руемые компоненты используются для обоз¬ 
начения компонент структур, входов, и объек¬ 
тов, на которые указывают ссылочные значе¬ 
ния. Они также используются в качестве сос¬ 
тавных имен. 

Селектор (selector). См. селектируемая компо- 


Тип (type) характеризует набор значений и 
набор операций, применимый к этим значе¬ 
ниям. Определение типа -это языковая конст¬ 
рукция, которая определяет тип. Конкретный 
тип может быть ссылочным, регулярным, при¬ 
ватным, комбинированным, скалярным типом 
или типом «задача». 

Удовлетворять (satisfy). См. уточнение, подтип. 
Указывать (designate). См. ссылочный тип, 
задача. 

Уточнение (constraint) определяет подмножест¬ 
во значений для типа. Значение из этого 
подмножества удовлетворяет данному уточ- 


Скалярный тип (scalar type). Объект и значение 
скалярного типа не имеют компонент. Скаляр¬ 
ный тип-это дискретный тип или действитель¬ 
ный тип. Значения, принадлежащие к скаляр¬ 
ному типу, упорядочены. 

Совокупность (collection) -полный набор объек¬ 
тов для заданного ссылочного типа, созданных 
при помощи генераторов. 

Составное имя (expanded name) обозначает 
ресурс, который объявляется непосредственно 
в пределах некоторой языковой конструкции. 
Составное имя записывается в форме с селек¬ 
цией компоненты: префикс обозначает языко¬ 
вую конструкцию ( программыный сегмент, 
блок, цикл или оператор приема)', селектор -это 
простое имя ресурса. 

Составной тип (composite type) -тип, значения 
которого имеют компоненты. Существуют два 
вида составных типов- регулярные типы и 
комбинированные типы. 

Ссылочный тип (access type) -набор значений 
ссылочного типа ( ссылочные значения), которые 
могут быть либо пустым (null) значением, либо 
значением, указывающим объект, созданный 
генератором. Значение объекта можно считы¬ 
вать и изменять через ссылочное значение. При 
определении ссылочного типа специфицируется 
тип объектов, на которые могут указывать 
значения этого ссылочного типа. См. также 
совокупность. 

Тело (body) -конструкция, определяющая поря¬ 
док выполнения подпрограммы, пакета или 
задачи. Заглушка (body stub) -это форма тела, 
которая показывает, что порядок выполнения 
этого тела определяется в раздельно компили¬ 
руемом подсегменте. 


Уточнение диапазона значений (range constraint) 
для типа специфицирует диапазон и тем самым 
определяет подмножество значений типа, кото¬ 
рое принадлежит этому диапазону. 

Уточнение диапазона индексов (index constraint) 
для регулярного типа специфицирует верхние и 
нижние границы каждого диапазона значений 
индексов этого регулярного типа. 

Уточнение дискриминантов (discriminant const¬ 
raint) для комбинированного типа или приват¬ 
ного типа специфицирует значение каждого 
дискриминанта для этого типа. 


етр (actual parameter). См. 


(fixed point type). См. 


действительный тип. 

Формальный параметр (formal parameter). См. 


параметр. 

Фраза использования (use clause) обеспечивает 
непосредственную видимость объявлений, кото¬ 
рые расположены в видимых частях перечис¬ 
ленных в этой фразе пакетов. 

Фраза подключения контекста (with clause). См. 
сегмент компиляции. 

Фраза представления (representation clause) дает 
указание транслятору по поводу выбора спосо J 
ба представления типа, объекта или задачи в 
ЭВМ, которая выполняет программу. В неко¬ 
торых случаях фразы представления полностью 
специфицируют этот способ. В других случаях 
они представляют критерии для выбора спосо¬ 
ба представления. 

Функция (function). См. подпрограмма. 


Целый тип (integer type) -дискретный тип, 
значениями которого являются все целые числа 
из данного диапазона. 




Приложение Д 
СВОДКА СИНТАКСИСА 


не является частью стандартного определения языка програм- 


Данная сводка синтаксиса 
мирования Ада. 

2 . 1 " 

графический_снмвол :: = 

базисный графический символ 
|буква_нижнего_регистра | прочий специальный. 

базисный_графический символ :: = 
буква_верхнего_регистра 

I цифра I специальный_символ | символ „пробела 
базисный_символ ::= базисный графическийсимвол 
I символ_управления_форматом 

2.3 

идентификатор ::= буква {[символ подчеркивания] 
буква_или_цифра} 

буква_или_цифра ::= буква | цифра 
буква ::= буква_верхнего регистра 
I буква__нижнего_регистра 

2.4 

десятичный_литерал ::= десятичный_литерал 
I литерал_с_указанием„системы„счисления 

2 . 4.1 

десятичный_литерал ::= целое число [,целое_число] 
[порядок] 

целое число цифра {[символ подчеркивания] 

цифра} 

порядок ::= Е [+] целое_число | Е — целое число 

2 . 4.2 

литерал_с^казанием_системы_счисления :: = 
основание_системы_счисления # 
целое_число_вуказаннойсисгеме„счисления 
[,целое_число_ в указанной_системе_счисления] # 
[порядок] 

основание_системы счисления ::= целое_число 
целое_число_в_указанной_системе_счисления :: = 
расширенная „цифра {[символ „подчеркивания] 
распшренная_цифра} 
расширенная цифра ::= цифра | буква 

2.5 

символьный литерал ::= 'графический символ' 

2.6 

сгроковый_литерал ::= "{графический_символ}" 

2.8 

инструкция ::= pragma идентификатор 


11 См. снежки на с. 300. 


[(связывание_аргумента {, связывание аргумента})]; 

[идепткфккатор_аргумента =>] 

имя I [идентификатор _аргумента =>] выражение 

3 . 1 . 

базисное_объявление :: = 

I объявление_объекта | объявление_числа 
I объявление_типа | объявление_подтипа 
I объявление, подпрограммы | объявление_пакета 
I объявление_задачи | родовое объявление 
I объявление_исключительной_ситуации 
I родовая.конкретизация | объявление_ 

переименования 

|объявление_отложенной_константы 

3.2 

объявление_объекта :: = 

список идентификаторов : [constant] 
указание : „подтипа [:= выражение]; 
|список_идентификаторов : [constant] 
определение_уточненного_регуляторного_типа 
[:= выражение]; 

объявление„числа :: = список „идентификаторов : 
constant : = универсальное ^статическое „выражение; 

списокидентификаторов :: = 

идентификатор {, идентификатор} 

3 . 3.1 

объявление_типа :;= полное_объявление „типа 
I незавершенное_объявление„ типа 
I объявление_приватного_типа 

полное_объявление_типа ::= type идентификатор 
[дискриминантная_часть] is определение_типа; 

определение_типа = 

определение_перечисляемого_типа 
I определение целоготипа 

I определение_регулярного„ типа 
I определение_комбинированного_типа 
I определение_ссылочного_типа 
I определение_производного типа 

3 . 3.2 

объявление_подтипа ::= subtype 

идентификатор is указание_подтипа; 

указание.подтипа ::= обозначение_типа 


[уточнение] 
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обозначение_типа ::= имя _типа \ 


I уточнение _лля.плавающеготипа 
! уточнение_для_ фиксированного.тиі 
I уточнение диапазонаиндексов 
I уточнение дискриминантов 


объявление_компоненты {объяв ление.компонен 
I{объявление.компоненты} вариантная_часть 


определение подтипа.компонент 


определение_перечисляемого_типа :: = 
(спецификация перечисляемого_литерала 
{, спецификация_перечисляемого_литерала}) 
го_литерала :: = 


3.5.4 

определение_целого_ти 
уточнение .диапазона 
3.5.6 


уточнение для плавающего 
I уточнение для фиксированного типа 

3.5.7 

уточнение_для.плавающего,типа :: = 
указание погрешности _ представления 

_плавающего_типа 
[уточнение диапазона значений] 
указание.погрешности представления плавающего. 

digits статическое простоевыражение 
3.5.9 

уточнение_для_фиксированного_типа :: = 
указание .погрешности _ представления _ 

фиксированного ті 
[уточнение лиапазона.эначений] 
указание погрешности .представления. 

фиксированного.типа :: = 
delta статыческое.простое.выражение 
3.6 

определение_регулярного_типа :: = 

определение.неуточненного.регулярного.типа 
I определение.уточненного.регулярного.типа 
определение.неуточненного.регулярного.типа :: = 
array (определение.подтипа.индекса 
{, определение.подтипа.индекса}) of 
указание.подтипа компонент 
определение_уточненного_регулярного_типа :: = 
array (уточнение.индексов) of 
указание подтипа компонент 
определение.подтипа.индекса :: = 
обозначение.типа range < > 
уточнение диапазонов.индексов :: = 

(дискретный .диапазон {, дискретный .диапазон}) 
дискретный .диапазон :: = 

указание дискретного_подткпа \ диапазон 


вантов}) 


список.идентификаторов : 
обозначение.типа [:= выражение] 

3.7.2 

уточнение.дискриминантов :: = 

(связывание.дискриминанта 
{, связывание дискриминанта}) 
связывание .дискриминанта :: = 

[ прост ое имя дискриминанта 

3.7.3 

{ простж_имя_дискримшшнта} = > выражение 
вариантная.часть = 
case простое.имя.д 
вариант 
{вариант} 


условие.выбора :: = 
простое.выражение | дискретный. 


определение.ссылочного.ти 


3.9 


ъ ::= {базисный.элемент. 
объявления} {последующий.элемент .объявления} 
базисный.элемент.объявления :: = 
базисное объявление 

I фраза.представления | фраза.использования 
последующий.элемент.объявления тело 

I объявление.подпрограммы | объявление.пакета 
I объявление.задачи | родовое.объявление 
I фраза.использования | родовая.конкретизация 
тело соответствующее.тело | заглушка 
соответствующее.тело ::= тело.подпрограммы 


имя ::= простое.имя | символьный.литерал 

I символ операции |и индексированная.компонента 
I вырезка | селектируемая.компонента | атрибут 
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Приложение Д 


простое.имя ::= идентификатор 
префикс ::= имя | вызов функции 

4.1.1 

индексированная.компонента :: = 
префикс (выражение {, выражение}) 

4.1.2 

вырезка ::= префикс (дискретный.диапазон) 

4.1.3 

селектируемая.компонента ::= префикс.селектор 
селектор ::= простое.имя | символьныйлитерал 
символ_операции | all 

4.1.4 

атрибут ::= префикс'указатель.атрибута 
указатель_атрибута ::= простое.имя 
[(универсальное _статическое_ выражение)] 


агрегат ::= (связывание_компоненты 
{, связывание_компоненты}) 
связывание компоненты ::= [условие.выбора 
{I условие_выбора} = > ] выражение 


I отношение [хог отношение} 


простое_выраженяе [операция_отношения 
простое_выражение] 

I простое„выражение [not] in диапазон 
I простое_выражение [not] in обозначение_типа 
простое_выражение :: = 

[унарная.аддитивная.операция] 
терм {бинарная _аддитивная_операция терм} 
терм ::= множитель {мультипликативная_операция 
множитель} 

множитель ::= простейшее_выражение [•* 
простейшее_выражение] 
I abs простейшее_выражение | not простейшее 
выражение 

простейшее выражение ::= числовой.литерал | noil 
I агрегат | строковый.литерал | имя | генератор 
I вызов.функции I преобразование.типа 
I квалифицированное.выражение | (выражение) 


4.8 

генератор ::= new указание.подтипа 
I new квалифицированное.выражение 

5.1 

последовательность операторов :: = 
оператор {оператор} 
оператор {метка} простой.оператор 
I {метка} сосгавнойоператор 
простой.оператор ::= пустой.оператор 

I операторприсваивания | оператор.выэова 

процедуры 

I оператор.выхода | операторвозврата | оператор 
перехода 

I оператор_вызова_входа | оператор.эадержки 
I оператор.возбуждения.исключительной.ситуации 
I оператор_прекращения_задачи 
I оператор_вставки_кода 
составной.оператор :: = 

I условный.оператор | оператор.выбора 
I оператор.цикла | оператор.блока 
I оператор.приема | оператор.отбора 
метка ::= «простое.имя.метикы» 
пустой.оператор ::= null; 

5.2 

оператор.присваивания :: = 

имя переменной ::= выражение; 

5.3 

условный.оператор :: = 
if условие then 


{eMf условие then 
последовательность.операторов} 

[else 

end if; 

условие ::= логическое .выражение 

5.4 

оператор.выбора :: = 
case выражение is 
альтернатива.оператора.выбора 
{альтернатива.оператора.выбора} 

альтернатива.оператора.выбора :: = 
when условие.выбора {| условие.выбора} 
= > последовательность.операторов 

5.5 


4.5 

логическая.операция :;= and | от | хог 
операция.отношения ::= = |/=|<|<=|>|> = 
бинарная.аддитивная.операция ::= + | — | & 
унарная.аддитивная.операция + | — 
мультипликативная.операция ::= * | / | mod | гет 
операция.наивысшего.сгаршинства ::= ** |abs | not 

4.6 

преобразование.типа :: = 
обозначение.типа (выражение) 

4.7 

обозначение.типа'(выражение) 

I обозначение.типа'агрегат 


оператор.цикла :: = 

[простое.имя.ѵикла:] [схема.итераций] 
loop последовательность.операторов 
end loop [простое_имя_і/шош]; 
схема.итераций while условие 
I for спецификация.параметров.цикла 
спецификация.параметров.цикла ::= идентификатор 
in [reverse] дискретный^диапазон 
5.6 

оператор.блока ;: = 

[простое.имя.блока:] 

[declare 

декларативная.часть] 

begin 

последовательность.операторов 

[exception 
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обработчик исключительнойситуации 
{обработчик.исключительной.ситуации}] 
end [простое.имя.блока] 

5.7 

оператор.выхода :: = 
exit [имя.циюш] [when условие]; 

5.8 

оператор_возврата ;:= return [выражение]; 

5.9 

оператор_перехода ::= goto имя _метки; 


[exception 

обработчик .исключительной.ситуации 
{обработчик.исключительной ситуации}]] 
end [простое.имя.лакелю]; 

7.4 

объявление_приватного_типа ::= type 
идентификатор [дискриминантная_часть] 
is [limited] private; 

объявление_отложеиой_константы ::= список, 
идентификаторов : constant обозначение.типа; 

8.4 


6.1 

объявление.подпро граммы :; = 
спецификация_подпрограммы; 
спецификация_подпрограммы :: = 

procedure идентификатор [формальная_часть] 

I function обозначение [формальная .часть] 
return обозначение.типа 

обозначение ::= идентификатор | символ операции 
символ.операции ;:= строковый.литерал 
формальная.часть ::= (спецификация.параметров 
{; спецификация.параметров}) 
спецификация, параметро в :: = 
список.идентификаторов: 
вид_связи обозначение.типа [:= выражение] 
ВИД.СВЯЗИ ::= [in] | in out | out 


тело.подпрограммы = 

спецификация.подпрограммы is 
[декларативная.часть] 

последовательность.операторов 

[exception 

обработчик.исключительной.ситуации 
{обработчик.исключительной.ситуации}] 
end [обозначение]; 

6.4 

оператор_вызова_процедуры ::= имя _процедуры 
[частьс.фактическимипараметрами]; 
вызов.функции :;= имя _функции 

[часть.с.фактическими.параметрами] 
часть.с.фактическими.параметрами = 

(связывание.параметра {, связывание.параметра}) 
связывание.параметра :: = [формальный.параметр 
= >] 

фактическийпараметр 

формальный.параметр :;= простое_имя_параметра 
фактический.параметр ::= выражение 
I имя переменной 

I обозначение.типа (имя переменной) 


7.1 

объявление.пакета ::= спецификация.па 
спецификация.пакета :: = 
package идентификатор is 
{базисный.элемент.объявления} 

{базисный.элемент.объявления}] 
end [простое.имя.лаке/ид] 

package body простое.имя.лакета is 
[декларативная.часть] 

[begin 

последовательность.операторов 


фраза.использования ::= use 
имя _пакета {, имя _пакета] 


8.5 

объявление.переименования ::= идентификатор : 
обозначение.типа renames имя _объекта; 

I идентификатор : exception renames 
и мя исключительной _ситуации 
I package идентификатор renames имя ^пакета; 

I спецификация.подпрограммы renames 
имя_подпрограммы_шш_входа; 


9.1 

объявление.задачи ::= спецификация.задачи; 
спецификация задачи :: = 
task [type] идентификатор [is 
{объявление.входа} 
{фраза.представления} 
end [простое.имя.задачи]] 


task body простое.имя.задочи is 
[декларативная.часть] 
begin 

последовательность.операторов 

[exception 

обработчик.исключительной.ситуации 
{обработчик.исключительной ситуации}] 
end [просгое.имя.за&пю]; 

9.5 

объявление.входа ;: = 
entry идентификатор [(дискретный, 
диапазон)] [формальная.часть]; 
оператор.вызова.входа ::= имя _входа 
[часть с _фактическими_параметрами]; 
оператор.приема ::= accept 
простое.имя.входя [(индекс.входа)] 
[формальная.часть] [do последовательность, 
операторов 

end [простое.имя.входа]; 



оператор.задержки delay простое.выражение; 


оператор.отбора :;= с 


I таймированный.вызов.вх 


9.7.1 

селективное.ожидание :: = 
select 

альтернатива.отбора 

альтернатива.отбора} 

[else 
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последовательность_операторов] 

end select; 

альтернатива_отбора :: = 

[when условие =»] 

альтернатива_селеггивного ожидания 
альтернатива_селективного_ожидания :: = 

альтернатива_приема | альтернатива_с_задержкой 
I терминирующая альтернатива 
альтериатива_приема ::= оператор^ приема 
[последовательность_операторов] 
альтернатива_задержки ::= оператор задержки 
[последовательность_операторов] 
терминирующая_альтернатива ::= terminate; 

9.7.2 

условный_вызов_входа :: = 

select 

оператор_вызова_входа 

[последовательность_операторов] 

else 

последовательность_операторов 
end select; 

9.7.3 

таймированный вызов входа ::= , 

select 

оператор_вызова_входа 

[последовательность_операторов] 



end select; 

9.10 

оператор_прекращения_задачи ::= abort 
имя_задачи {, имя_задачи} 

10.1 

компиляция ::= {сегмент компиляции} 

описание_контекста библиотечньій_сеі мент 
I описание_контекста вторичный сегмент 
библиотечный сегмент :: = 
объявление подпрограммы 
I объявление_пакета | родовое объявление 
I родовая_конкретизация \ тело_подпрограммы 
вторичный сегмент ::= 
тело_библиотечного_сегмента | подсегмент 
тело_библиотечного сегмента :: = 
тело подпрограммы | тело_пакета 
10.1.1 

описание контекста ::= {фраза_ 

подключения_контекста {фраза_использования}} 
фраза_подключения_контекста ::= with 

просіое_имя_сегмента {, простое_имя ^сегмента}; 



спецификация_подпрограммы is separate; 
I package body 

простое_имя_лакета is separate; 

I task body 

простое кмя_задачи is separate; 


(i яия_порождаощего_сегмента ) соответствующее 

11.1 теЛ ° 
объявление^исключительной ситуации :: = 
список_идентификаторов : exception; 

11.2 

обработчик_исключительной_ситуации ::= when 
условие выбора_исключительной_ситуации 
{I условие выбора_исключительной_ситуации} 

= > последовательность операторов 
условие выбора исключительной ситуации = 
тля_исключителънойситуации | others 

11.3 

оператор возбуждения_исключительной_ситуации :: = 
raise [имя _исключителыюй_ситуации ]; 

12.1 

родовое_объявление ::= родовая спецификация; 
родовая спецификация :: = родовая формальная 
часть спецификация_подпрограммы 
I родовая_формальная_часть спецификация пакета 
родовая_формальная_часть ::= generic 
{объявление_родовых_параметров} 
объявление_родовых_параметров :: = 
список_идентификаторов : [in [out]] 
обозначение_типа [:= выражение] 

I type идентификатор is родовое определение типа; 
I объявление_приватного_типа 
I with спецификация_подпрограммы [is имя]; 
with спецификация подпрограммы [is < >]; 
родовое определение_типа ::= (< >) range < > 

I digits < > I delta < > 

I определение_регулярного_типа 
I определение_ссылочного_типа 

12.3 

родовая конкретизация :: = 
package идентификатор is 
new имя _родового_пакета 
[родовая_фактическая_часть]; 

I procedure идентификатор is 
new имя _родовой_процедуры 
[родовая фактическая часть]; 

I function обозначение is 
new имя _родовой_функции 
[родовая_фактическая_часть]; 
родовая_фактическая_часть :;= (родовое_связывание 
{, родовое_связывание}) 

родовое связывание ::= [родовой формальный 
параметр = > ] 

родовой_фактический_параметр 
родовой_формальный параметр :: = 
простое имя параметра 
I символ_операции 

родовой фактический_параметр ::= выражение 
I имя переменной \ имя подпрограммы 
I имя _входа I обозначение_типа 
13.1 

фраза_представления ::= фраза_представления_типа 
I адресная_фраза 



фраза_представления_типа ::= фраза длины 
I фраза_представления_перечисляемого_типа 
I фраза представления_комбинированного_ті 


{фраза_представления_компоненты} 


фраза представления комбинированного типа :: 
for простое_имя _типа use 
record [фраза выравнивания] 


і'агреглт-структура; 



ссылки 


Ниже перечислены названия синтаксических категорий и указан номер раздела, где эти 
категории определены 1) . Например: 

операция сложения 4.5 

Кроме того, вслед за названием каждой синтаксической категории располагаются названия 
других категорий, в определениях которых она упоминается. Например, операция сложения 
упоминается в определении простого выражения: 
операция сложения 4.5 

простое_выражение 4.4 

Многоточие обозначает, что данная синтаксическая категория не определяется синтаксическими 
правилами. Например: 
буква_нижнего_регистра 

Все случаи употребления скобок даны после термина «( )». Префиксы, выделенные курсивом, 
которые были использованы выше с некоторыми терминами, здесь удалены. 

агрегат 4.3 базисный_символ 2.1 

квалифицированное_выражение 4.7 базисныйэлемент объявления 3.9 

оператор_включения_кода 13.8 декларативная_часть 3.9 

простейшее_выражение 4.4 спецификация_пакета 7.1 


фаза_представления 

альтернатива оператора выбора 
оператор выбора 
альтернатнваотбора 

альтернатива_отбора 
альтернатива сзадержкой 

альтернатива_селективного_ожидания 

таймированный_вызов_входа 

альтернагнвапрнеча 

альтернатива_селеггивного_ожидания 

атрибут 

диапазон_значений 


базисный графический символ 

базисный_символ 
графический_символ 
базисное объявление 

базисный_элемент_объявления 


простое_выражение 

расширенная.цифра 
идентификатор 
буква_илицифра 
буква_верхнего регистра 
базисный_графический_сі 
буква 

буква„или цифра 

идентификатор 
буква нижнего регистра 

графический_символ 
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простейшеевыражение 

индексированная_компонента 

индекс_входа 

квалифицированное_выражение 

объявление_компонент 

объявление_объекта 

объявление_родовых_параметров 

объявлениечисла 

оператор_возврата 

оператор_выбора 

оператор_присваивания 

преобразованне_типа 

простейшее_выражение 

родовой_фактический_параметр 

связывание ^дискриминанта 
связывание_компонент 
спецификация ^дискриминантов 


указательатрибута 

условие 

фактическийпараметр 


генератор 

простейшее выражение 
графнческийсимвол 

символьный_литерал 

строковый_литерал 



уточнение_диапазона_диачений 
фраза_представления_компоненты 

декларативная часть 

оператор_блока 

тело_задачи 

тело_подпрограммы 

числовойлитерал 

дискретный диапазон 

объявление_входа 

спецификация_параметров_цикла 

условие_выбора 

уточнение.диапазонов индексов 
дискриминантная часть 

незавершенное_объявление_типа 

объявление_приватного_типа 

полное_объявление_типа 


идентификатор 

инструкция 

незавершенное_объявление_типа 
обозначение 
объявление.входа 
объявление, переименования 
объявление.подтипа 
объявление.приватного типа 


6.4 

4.1.2 


4.8 

4.4 
2.1 

2.5 

2.6 

3.5 

3.6 

4.4 

3.5 
13.4 

3.9 

5.6 
9.1 


объявление_родовых_параметров 12.1 

перечисляемый.литерал 3.5.1 

полное_объявление_типа 3.3.1 

простое.имя 4.1 

родовая.конкретизация 12.3 

связывание .аргумента 2.8 

спецификация.задачи 9.1 

спецификация_пакета 7.1 

спецификация_параметров_цикла 5.5 

спецификация_подпро граммы 6.1 

список_идентификаторов 3.2 

мя 4.1 

вызов_функции 6.4 

обозначение_типа 3.3.2 

объявление_переименования 8.5 

объявление_родовых_параметров 12.1 

оператор_возбуждения_исключительной_ 
ситуации 11.3 

оператор_вызова_входа 9.5 

оператор_вызова_процедуры 6.4 

оператор_выхода 5.7 

оператор_перехода 5.9 

оператор_прекращения_задачи 9.10 

оператор_присваивания 5.2 

подсегмент 10.2 

префикс 4.1 

простейшее_выражение 4.4 

родовая_конкретизация 12.3 

родовой_фактический_параметр 12.3 

связывание_аргумента 2.8 

условие_выбора_исключителъной_ситуации 11.2 
фактический_параметр 6.4 

фраза_испо л ьзования 8.4 

фраза_представления_компоненты 13.4 



оператор_приема 9.5 

инструкция '2.8 


7.1 

6.3 

2.4.1 

2.4 
3.6 

4.1.2 

9.5 

5.5 

3.7.3 


литералс_указаниемсистемыс 
числовой_литерал 
логическая операция 


4.7 

4.8 

4.4 
10.1 

2.4.2 

2.4 

4.5 


3.7.1 

3.8.1 

7.4 

3.3.1 

10.2 

3.9 

2.3 
2.8 

3.8.1 

6.1 

9.5 

8.5 
3.3.2 

7.4 


оператор 




родовая_конкретизация 
спецификация ^подпрограммы 
тело_подпрограммы 

квалифицированное выражение 
объявление_отложенной_константы 


5.1 
4.4 

4.4 

4.5 
4.4 

3.8.1 

3.3.1 

6.1 
12.3 
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объявление.переименования 
объявление.родовых.параметров 
оператор включения.кода 
определение.подтипа.индекса 


родовой.фаггичесхий.параметр 
спецнфикация^дискриминантов 
спецификация параметров 
спецификация_подпрограммы 


таймированный.вызов.вхог 
условный_вызов_входа 
оператор вызова процедуры 
простой_оператор 
оператор выхода 
простой_оператор 
оператор, задержка 

альтернатива_с_задержкой 
простой.оператор 
оператор отбора 
составнойоператор 
оператор перехода 
простой.оператор 
оператор прекращения.задачи 
простой_оператор 


базисное.объявление 
последующий_элемент_объявления 

объявлениенсключительной.агтуацаа 

базисное объявление 


составнойоператор 

простой.оператор 


базисное.объявление 

библиотечныйсегмент 

последующий.элемент.о 


базисное объявление 

библиотечный.сегмент 

последующий.элемент.объявл 


сегмент компиляции 
определение.типа 


определение.типа 

определениенеуточненного регулярного типа 

определение_регулярного_типа 

определение.типа 
определение подтипа индекса 

определение.неуточненногоретулярно- 

оп ределение подтипа компонент 
объявление.компонент 
определение производного типа 
определение.типа 
определение регулярного типа 
определение.типа 
родовое.определение.типа 


составной.оператор 

операторвключеннякод 

простой.оператор 

оператор возбуждения ! 
туашш 

простой.оператор 

простой.оператор 

составной.оператор 


определение_регулярного_типа 
определение целого типа 
определение.типа 

литерал.с.ухазанием.системы счисления 


ия.перечисляемого.литерала 3.5. 
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десятичный литерал 2.4.1 

литерал_с_указанием_системы_счисления 2.4.2 

последовательность операторов S.1 
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-дискриминантов 65, 66 
-задач 250 

-исключительной ситуации 279, 280 
-комбинированных типов 54 
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Приватный тип 182 
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- CURR_TRANSACTION_PROC 229 

- DATE_CONVERSION 60 

- DAY_CONVERSION 28 
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Программный сегмент 128 
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Простое выражение 113, 114 
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Пустой диапазон 45, 46, 99 



Предметный указатель 


347 


Разделитель 11 
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130-133 
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Спецификация 
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Строки 11, 54 
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-пакета 189 
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ния) 36, 68-70 
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Уничтожение объекта 78 
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Уточнение 15, 68, 82 
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Файл 204, 205 
-внешний 204, 205 
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-прямого доступа 218 
Фактический параметр 132 
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